@@ -388,11 +388,11 @@
 	    (setenv "MT_TEST_RUN_DIR" work-area)
 	    (setenv "MT_TEST_NAME" test-name)
 	    (setenv "MT_ITEM_INFO" (conc itemdat))
 	    (setenv "MT_RUNNAME"   runname)
 	    (setenv "MT_MEGATEST"  megatest)
-	    (setenv "PATH" (conc (getenv "PATH") ":" mt-bindir-path))
+	    (if mt-bindir-path (setenv "PATH" (conc (getenv "PATH") ":" mt-bindir-path)))
 	    
 	    (if (not (setup-for-run))
 		(begin
 		  (debug:print 0 "Failed to setup, exiting") 
 		  (exit 1)))