--- 30-current_exec.t.org	2008-05-21 17:20:58.326089100 -0400
+++ 30-current_exec.t	2008-05-21 17:33:38.579279500 -0400
@@ -47,7 +47,7 @@
 
 my( $file, $path ) = fileparse( $EXEC );
 
-my $out_path = do { local $ENV{PATH} = $path; qx($file); };
+my $out_path = do { local $ENV{PATH} = "$path:$ENV{PATH}"; qx($file); };
 
 is( $out_path, $out_full, "Found the same file via PATH and full path" );