diff --git a/tools/update_passing_test_data.pl b/tools/update_passing_test_data.pl
index 93344f5f719..bbec881a338 100644
--- a/tools/update_passing_test_data.pl
+++ b/tools/update_passing_test_data.pl
@@ -16,7 +16,7 @@ =head1 DESCRIPTION
there's a good reason for them not already being included.
This script should be called from the main Rakudo directory (ie
-C relative to parrot).
+C relative to parrot).
=cut
@@ -28,6 +28,7 @@ =head1 DESCRIPTION
use File::Find;
use Data::Dumper;
+my $parrot = -d 'parrot' ? 'parrot/parrot' : '../../parrot';
my %not_process;
{
@@ -91,7 +92,7 @@ sub read_specfile {
sub get_harness {
return TAP::Harness->new({
verbosity => -2,
- exec => ['../../parrot', '-G', 'perl6.pbc'],
+ exec => [$parrot, '-G', 'perl6.pbc'],
merge => 1,
});
}