@@ -354,11 +354,11 @@
 ;; 3. create link from run dir to megatest runs area 
 ;; 4. remotely run the test on allocated host
 ;;    - 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 test-conf keyvallst test-name test-path itemdat)
+(define (launch-test db run-id runname test-conf keyvallst test-name test-path itemdat)
   (change-directory *toppath*)
   (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
@@ -405,11 +405,11 @@
 						   (list 'run-id    run-id   )
 						   (list 'itemdat   itemdat  )
 						   (list 'megatest  remote-megatest)
 						   (list 'ezsteps   ezsteps)
 						   (list 'env-ovrd  (hash-table-ref/default *configdat* "env-override" '()))
-						   (list 'runname   (args:get-arg ":runname"))
+						   (list 'runname   runname)
 						   (list 'mt-bindir-path mt-bindir-path))))))) ;; (string-intersperse keyvallst " "))))
     ;; clean out step records from previous run if they exist
     (db:delete-test-step-records db run-id test-name itemdat)
     (change-directory work-area) ;; so that log files from the launch process don't clutter the test dir
     (cond
@@ -431,11 +431,11 @@
 	   (testprevvals   (alist->env-vars
 			    (hash-table-ref/default test-conf "pre-launch-env-overrides" '())))
 	   (miscprevvals   (alist->env-vars ;; consolidate this code with the code in megatest.scm for "-execute"
 			    (append (list (list "MT_TEST_NAME" test-name)
 					  (list "MT_ITEM_INFO" (conc itemdat)) 
-					  (list "MT_RUNNAME"   (args:get-arg ":runname")))
+					  (list "MT_RUNNAME"   runname))
 				    itemdat)))
 	   (launch-results (apply cmd-run-proc-each-line
 				  (if useshell
 				      (string-intersperse fullcmd " ")
 				      (car fullcmd))