Index: lib/Parrot/Ops2c/Utils.pm =================================================================== --- lib/Parrot/Ops2c/Utils.pm (revision 42918) +++ lib/Parrot/Ops2c/Utils.pm (working copy) @@ -742,7 +742,7 @@ my $source_escaped = $source; $source_escaped =~ s|\.temp||; $source_escaped =~ s|(\\)|$1$1|g; # escape backslashes - print $fh qq{#line $line "$source_escaped"\n}; + print $fh qq{#line $line "./$source_escaped"\n}; } } Index: lib/Parrot/OpsFile.pm =================================================================== --- lib/Parrot/OpsFile.pm (revision 42918) +++ lib/Parrot/OpsFile.pm (working copy) @@ -563,7 +563,7 @@ my $file_escaped = $file; $file_escaped =~ s|(\\)|$1$1|g; # escape backslashes - $op->body( $nolines ? $body : qq{#line $line "$file_escaped"\n$body} ); + $op->body( $nolines ? $body : qq{#line $line "./$file_escaped"\n$body} ); # Constants here are defined in include/parrot/op.h or_flag( \$jumps, "PARROT_JUMP_ADDRESS" ) if $absolute;