@@ -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))