diff --git a/tools/autounfudge.pl b/tools/autounfudge.pl
index 4925c5270ff..39f8640c570 100644
--- a/tools/autounfudge.pl
+++ b/tools/autounfudge.pl
@@ -258,10 +258,9 @@ sub tests_ok {
 }
 
 sub get_harness {
-    my $parrot = -d 'parrot' ? 'parrot/parrot' : '../../parrot';
     return TAP::Harness->new({
             verbosity   => -2,
-            exec        => [$parrot, '-G', 'perl6.pbc'],
+            exec        => ['./perl6'],
             merge       => 1,
     });
 }
diff --git a/tools/test_summary.pl b/tools/test_summary.pl
index aea8929ac49..ef303c87aa5 100644
--- a/tools/test_summary.pl
+++ b/tools/test_summary.pl
@@ -73,8 +73,7 @@
     my $tname = $tname{$tfile};
     my $syn = substr($tname, 0, 3); $syn{$syn}++;
     printf "%s%s..", $tname, '.' x ($max - length($tname));
-    my $parrot = -d 'parrot' ? 'parrot/parrot' : '../../parrot';
-    my $cmd = "$parrot perl6.pbc $tfile";
+    my $cmd = "./perl6 $tfile";
     my @results = split "\n", `$cmd`;
     my ($test, $pass, $fail, $todo, $skip) = (0,0,0,0,0);
     my (%skip, %todopass, %todofail);