@@ -180,10 +180,11 @@
 		    ;; 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 all-steps-dat))
 			       (stepname    (car ezstep))
 			       (stepparms   (hash-table-ref all-steps-dat stepname)))
+			  (setenv "MT_STEP_NAME" stepname)
 			  (pp (hash-table->alist all-steps-dat))
 			  ;; 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) stepparms)