Index: lib/Parrot/Test.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/Test.pm,v
retrieving revision 1.55
diff -u -u -r1.55 Test.pm
--- lib/Parrot/Test.pm	9 Apr 2004 20:32:33 -0000	1.55
+++ lib/Parrot/Test.pm	21 Apr 2004 23:49:21 -0000
@@ -270,10 +270,7 @@
 	    $run_pbc = 0;
 	}
 	else {
-	    # flatten filenames (don't use directories)
-	    $as_f = (File::Spec->splitpath($as_f))[2];
-	    # but, always put the test in a tempdir, so we're not cluttering
-	    $as_f = File::Spec->catfile(File::Spec->tmpdir(),$as_f);
+	    $as_f = File::Spec->rel2abs($as_f);
 	    $pbc_generator->( $assembly, $path_to_parrot, $count, $as_f );
 	}