Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -368,14 +368,19 @@
    (iup:vbox ; #:expand "YES"
     (iup:label (conc "Step: " stepname "\nNB// These buttons only run the test step\nfor the purpose of debugging.\nNot all database updates are done."))
     (iup:button "Re-run"            
 		#:expand "HORIZONTAL" 
 		#:action (lambda (obj)
-			   (thread-start! 
-			    (make-thread (lambda ()
-					   (ezsteps:run-from testdat stepname #t))
-					 (conc "ezstep run single step " stepname)))))
+                           (debug:catch-and-dump 
+                            (lambda ()
+			      (thread-start! 
+			       (make-thread
+                                (lambda ()
+			          (ezsteps:run-from testdat stepname #t) 'foo)
+                                "ezstep:run-from")))
+                                         
+			    (conc "ezstep run single step " stepname))))
     (iup:button "Re-run and continue"         
 		#:expand "HORIZONTAL" 
 		#:action (lambda (obj)
 			   (thread-start!
 			    (make-thread (lambda ()

Index: ezsteps.scm
==================================================================
--- ezsteps.scm
+++ ezsteps.scm
@@ -55,11 +55,12 @@
 		(sleep 3)
 		(loop (- count 1))))))
     (debug:print-info 0 *default-log-port* "Running in directory " test-run-dir)
     (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))
+    
+     (if (not (> (length ezstepslst) 0))
 	(message-window "ERROR: You can only re-run steps defined via ezsteps")
 	(begin
 	  (let loop ((ezstep   (car ezstepslst))
 		     (tal      (cdr ezstepslst))
 		     (prevstep #f)
@@ -130,18 +131,18 @@
 				   " next-status: " next-status " rollup-status: " rollup-status)
 		      (case next-status
 			((warn)
 			 (set! rollup-status 2)
 			 ;; NB// test-set-status! does rdb calls under the hood
-			 (tests:test-set-status! test-id "RUNNING" "WARN" 
+			 (tests:test-set-status! run-id test-id "RUNNING" "WARN" 
 						 (if (eq? this-step-status 'warn) "Logpro warning found" #f)
 						 #f))
 			((pass)
 			 (tests:test-set-status! run-id test-id "RUNNING" "PASS" #f #f))
 			(else ;; 'fail
 			 (set! rollup-status 1) ;; force fail
-			 (tests:test-set-status! test-id "RUNNING" "FAIL" (conc "Failed at step " stepname) #f)
+			 (tests:test-set-status! run-id test-id "RUNNING" "FAIL" (conc "Failed at step " stepname) #f)
 			 ))))
 		  (if (and (steprun-good? logpro-used (vector-ref exit-info 2))
 			   (not (null? tal)))
 		      (if (not run-one) ;; if we got here we completed the step, if run-one is true, stop
 			  (loop (car tal) (cdr tal) stepname runflag))))
@@ -175,9 +176,10 @@
 		  ;; need to update the top test record if PASS or FAIL and this is a subtest
 		  (if (not (equal? item-path ""))
                       (rmt:set-state-status-and-roll-up-items run-id test-name item-path new-state new-status #f))))
 	    ;; for automated creation of the rollup html file this is a good place...
 	    (if (not (equal? item-path ""))
-		(tests:summarize-items #f run-id test-id test-name #f)) ;; don't force - just update if no
+	      (tests:summarize-items run-id test-id test-name #f)) ;; don't force - just update if no
 	    )))
     (pop-directory)
     rollup-status))
+