Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -507,10 +507,18 @@
 ;;    - could be ssh to host from hosts table (update regularly with load)
 ;;    - could be netbatch
 ;;      (launch-test db (cadr status) test-conf))
 (define (launch-test db run-id runname test-conf keyvallst test-name test-path itemdat params)
   (change-directory *toppath*)
+  (alist->env-vars ;; consolidate this code with the code in megatest.scm for "-execute"
+   (list ;; (list "MT_TEST_RUN_DIR" work-area)
+	 (list "MT_RUN_AREA_HOME" *toppath*)
+	 (list "MT_TEST_NAME" test-name)
+	 ;; (list "MT_ITEM_INFO" (conc itemdat)) 
+	 (list "MT_RUNNAME"   runname)
+	 ;; (list "MT_TARGET"    mt_target)
+	 ))
   (let* ((useshell   (config-lookup *configdat* "jobtools"     "useshell"))
 	 (launcher   (config-lookup *configdat* "jobtools"     "launcher"))
 	 (runscript  (config-lookup test-conf   "setup"        "runscript"))
 	 (ezsteps    (> (length (hash-table-ref/default test-conf "ezsteps" '())) 0)) ;; don't send all the steps, could be big
 	 (diskspace  (config-lookup test-conf   "requirements" "diskspace"))