@@ -176,30 +176,33 @@
 	                                              ;;; stuff as needed)
 	      (if (not (common:file-exists? ".ezsteps"))(create-directory ".ezsteps"))
 	      ;; if ezsteps was defined then we are sure to have at least one step but check anyway
 	      (if (not (> (length ezstepslst) 0))
 		  (debug:print-error 0 *default-log-port* "ezsteps defined but ezstepslst is zero length")
-		  (let loop ((ezstep (car ezstepslst))
-			     (tal    (cdr ezstepslst))
-			     (prevstep #f))
-                    (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 all-steps-dat prevstep envdbf))
-			       (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)
-			      (if (not (null? tal))
-				  (loop (car tal) (cdr tal) stepname))
-			      (debug:print 0 *default-log-port* "WARNING: step " (car ezstep) " failed. Stopping")))
-			(debug:print 0 *default-log-port* "WARNING: a prior step failed, stopping at " ezstep)))))))))
+		  (let ((all-step-names (map car ezstepslst)))
+		    (setenv "MT_STEP_NAMES" (string-intersperse all-step-names " "))
+		    (let loop ((ezstep (car ezstepslst))
+			       (tal    (cdr ezstepslst))
+			       (prevstep #f))
+		      (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 all-steps-dat prevstep envdbf))
+				 (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)
+				(if (not (null? tal))
+				    (loop (car tal) (cdr tal) stepname))
+				(debug:print 0 *default-log-port* "WARNING: step " (car ezstep) " failed. Stopping")))
+			  (debug:print 0 *default-log-port* "WARNING: a prior step failed, stopping at " ezstep))
+		      ))))))))
 
 (define (launch:monitor-job run-id test-id item-path fullrunscript ezsteps test-name tconfigreg exit-info m work-area runtlim misc-flags)
   (let* ((update-period (string->number (or (configf:lookup *configdat* "setup" "test-stats-update-period") "30")))
          (start-seconds (current-seconds))
 	 (calc-minutes  (lambda ()
@@ -399,11 +402,10 @@
                                             ;; one more time, change to the work-area directory
                                             (change-directory work-area)))
 	       ) ;; let*
 
 	  (if contour (setenv "MT_CONTOUR" contour))
-	  
 	  ;; immediated set some key variables from CMDINFO data, yes, these will be set again below ...
 	  ;;
 	  (setenv "MT_TESTSUITENAME" areaname)
 	  (setenv "MT_RUN_AREA_HOME" top-path)
 	  (set! *toppath* top-path)