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