Index: ezsteps.scm
==================================================================
--- ezsteps.scm
+++ ezsteps.scm
@@ -35,11 +35,11 @@
 (include "run_records.scm")
 
 
 ;;(rmt:get-test-info-by-id run-id test-id) -> testdat
 
-
+    (setenv "MT_STEP_NAME" stepname)
 
 (define (ezsteps:run-from testdat start-step-name run-one)
   ;;# TODO - recapture item variables, debug repeated step eval; regen logpro from test
   (let* ((do-update-test-state-status #f)
          (test-run-dir  ;; (filedb:get-path *fdb* 

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -361,10 +361,11 @@
                     (debug:print-info 0 *default-log-port* "Processing ezstep \"" (string-intersperse ezstep " ") "\"")
 		    ;; check exit-info (vector-ref exit-info 1)
 		    (if (launch:einf-exit-status exit-info) ;; (vector-ref exit-info 1)
 			(let ((logpro-used (launch:runstep ezstep run-id test-id exit-info m tal testconfig))
 			      (stepname    (car ezstep)))
+			  (setenv "MT_STEP_NAME" stepname)
 			  ;; if logpro-used read in the stepname.dat file
 			  (if (and logpro-used (common:file-exists? (conc stepname ".dat")))
 			      (launch:load-logpro-dat run-id test-id stepname))
 			  (if (steprun-good? logpro-used (launch:einf-exit-code exit-info))
 			      (if (not (null? tal))