Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -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))))

Index: ezsteps.scm
==================================================================
--- ezsteps.scm
+++ ezsteps.scm
@@ -30,10 +30,11 @@
 	 (ezstepslst    (hash-table-ref/default testconfig "ezsteps" '()))
 	 (run-mutex     (make-mutex))
 	 (rollup-status 0)
 	 (exit-info     (vector #t #t #t))
 	 (test-id       (db:test-get-id testdat))
+	 (test-name     (db:test-get-testname testdat))
 	 (kill-job      #f)) ;; for future use (on re-factoring with launch.scm code
     (push-directory test-run-dir)
     (debug:print-info 0 "Running in directory " test-run-dir)
     (if (not (file-exists? ".ezsteps"))(create-directory ".ezsteps"))
     ;; if ezsteps was defined then we are sure to have at least one step but check anyway

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -885,11 +885,11 @@
 	  (if (not (setup-for-run))
 	      (begin
 		(debug:print 0 "Failed to setup, exiting")
 		(exit 1)))
 
-	  (debug:print-info 1 "Runing -runstep, first change to directory " work-area)
+	  (if (args:get-arg "-runstep")(debug:print-info 1 "Running -runstep, first change to directory " work-area))
 	  (change-directory work-area)
 	  ;; can setup as client for server mode now
 	  ;; (client:setup)
 
 	  (if (args:get-arg "-load-test-data")