@@ -268,15 +268,21 @@
    (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)
-			   (ezsteps:run-from testdat stepname #f)))
+			   (thread-start! 
+			    (make-thread (lambda ()
+					   (ezsteps:run-from testdat stepname #f))
+					 (conc "ezstep run single step " stepname)))))
     (iup:button "Re-run and continue"         
 		#:expand "HORIZONTAL" 
 		#:action (lambda (obj)
-			   (ezsteps:run-from testdat stepname #f)))
+			   (thread-start!
+			    (make-thread (lambda ()
+					   (ezsteps:run-from testdat stepname #f))
+					 (conc "ezstep run from step " stepname)))))
     ;; (iup:button "Refresh test data"
     ;;     	#:expand "HORIZONTAL"
     ;;     	#:action (lambda (obj)
     ;;     		   (print "Refresh test data " stepname))
     )))
@@ -436,11 +442,32 @@
 			       command-text-box "VALUE"
 			       (conc "xterm -geometry 180x20 -e \"megatest -remove-runs -target " keystring " :runname " runname
 				     " -testpatt " (conc testname "/" (if (equal? item-path "")
 									  "%"
 									  item-path))
-				     " -v ;echo Press any key to continue;bash -c 'read -n 1 -s'\"")))))
+				     " -v ;echo Press any key to continue;bash -c 'read -n 1 -s'\""))))
+	       (clean-run-execute  (lambda (x)
+				     (let ((cmd (conc "xterm -geometry 180x20 -e \""
+						      "megatest -remove-runs -target " keystring " :runname " runname
+						      " -testpatt " (conc testname "/" (if (equal? item-path "")
+											   "%"
+											   item-path))
+						      ";megatest -target " keystring " :runname " runname 
+						      " -runtests " (conc testname "/" (if (equal? item-path "")
+											   "%" 
+											   item-path))
+						      " ;echo Press any key to continue;bash -c 'read -n 1 -s'\"")))
+				       (system (conc cmd " &")))))
+	       (remove-test (lambda (x)
+			      (iup:attribute-set!
+			       command-text-box "VALUE"
+			       (conc "xterm -geometry 180x20 -e \"megatest -remove-runs -target " keystring " :runname " runname
+				     " -testpatt " (conc testname "/" (if (equal? item-path "")
+									  "%"
+									  item-path))
+				     " -v ;echo Press any key to continue;bash -c 'read -n 1 -s'\""))
+			      )))
 	  (cond
 	   ((not testdat)(begin (print "ERROR: bad test info for " test-id)(exit 1)))
 	   ((not rundat)(begin (print "ERROR: found test info but there is a problem with the run info for " run-id)(exit 1)))
 	   (else
 	    ;;  (test-set-status! db run-id test-name state status itemdat)
@@ -460,10 +487,11 @@
 					   (iup:hbox 
 					    (iup:button "View Log"      #:action viewlog     #:size "80x")
 					    (iup:button "Start Xterm"   #:action xterm       #:size "80x")
 					    (iup:button "Run Test"      #:action run-test    #:size "80x")
 					    (iup:button "Clean Test"    #:action remove-test #:size "80x")
+					    (iup:button "CleanRunExecute!"    #:action clean-run-execute #:size "80x")
 					    (iup:button "Kill All Jobs" #:action kill-jobs   #:size "80x")
 					    (iup:button "Close"         #:action (lambda (x)(exit)) #:size "80x"))
 					   (apply 
 					    iup:hbox
 					    (list command-text-box command-launch-button))))