Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -173,11 +173,13 @@
 	    (let* ((all-steps-dat (make-hash-table))) ;; keep all the info around as stepname ==> alist; where  'params is the params list (add other 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 ((all-step-names (map car ezstepslst)))
+                  (let ((all-step-names (map car ezstepslst))
+                        (status-file (file-open "ezsteps.status" (+ open/append open/wronly open/creat)))
+                        )
 		   (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 " ") "\"")
@@ -189,15 +191,22 @@
 			  (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))
+
+                          (file-write status-file (conc stepname " " (launch:einf-exit-code exit-info) "\n"))
+
 			  (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))))))))))
+			(debug:print 0 *default-log-port* "WARNING: a prior step failed, stopping at " ezstep)))
+                        (file-close status-file)
+                        )
+
+                        ))))))
 
 (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 ()