diff --git a/build/Makefile.in b/build/Makefile.in
index 48eea9bce3c..62606c03409 100644
--- a/build/Makefile.in
+++ b/build/Makefile.in
@@ -395,7 +395,7 @@ test    : coretest
 fulltest: coretest spectest
 
 coretest: Test.pir $(PERL6_EXE)
-	$(PERL) t/harness t/00-parrot t/01-sanity
+	PARROT=$(PARROT) $(PERL) t/harness t/00-parrot t/01-sanity t/02-embed
 
 # Run the spectests that we know work.
 spectest_regression: spectest
diff --git a/t/02-embed/01-load.pir b/t/02-embed/01-load.pir
new file mode 100644
index 00000000000..948ed25eadb
--- /dev/null
+++ b/t/02-embed/01-load.pir
@@ -0,0 +1,29 @@
+=head1 NAME
+
+t/02-embed/01-load.pir - Tests loading of bytecode
+
+=head1 SYNOPSIS
+
+    % parrot t/02-embed/01-load.pir
+
+=head1 DESCRIPTION
+
+Tests the loading of perl6.pbc . This file is used by t/02-embed/01-load.t
+
+=cut
+
+.sub 'main' :main
+    .include 'test_more.pir'
+
+    plan(1)
+
+    test_load()
+.end
+
+.sub test_load
+    lives_ok(<<'CODE',"can load_bytecode perl6.pbc")
+.sub main
+    load_bytecode "perl6.pbc"
+.end
+CODE
+.end
diff --git a/t/02-embed/01-load.t b/t/02-embed/01-load.t
new file mode 100644
index 00000000000..709a5f38fe1
--- /dev/null
+++ b/t/02-embed/01-load.t
@@ -0,0 +1,3 @@
+use v6;
+my $parrot = %*ENV{'PARROT'};
+run("$parrot t/02-embed/01-load.pir");