Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -315,11 +315,11 @@
 		 (mt-bindir-path (assoc/default 'mt-bindir-path cmdinfo))
 		 (fullrunscript (conc testpath "/" runscript))
 		 (db        #f))
 	    (print "Exectuing " test-name " on " (get-host-name))
 	    (change-directory testpath)
-	    (setenv "MT_TEST_RUN_DIR" testpath)
+	    (setenv "MT_TEST_RUN_DIR" work-area)
 	    (setenv "MT_TEST_NAME" test-name)
 	    (setenv "MT_ITEM_INFO" (conc itemdat))
 	    (setenv "MT_RUNNAME"   runname)
 	    (setenv "PATH" (conc (getenv "PATH") ":" mt-bindir-path))
 	    (if (not (setup-for-run))