Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -599,11 +599,11 @@
 	       (kill-jobs (lambda (x)
 			    (iup:attribute-set! 
 			     command-text-box "VALUE"
 			     (conc "megatest -target " keystring " -runname "  runname 
 				   " -set-state-status KILLREQ,n/a -testpatt %/% "
-				   " -state RUNNING"))))
+				   " -state RUNNING,REMOTEHOSTSTART,LAUNCHED"))))
 	       (run-test  (lambda (x)
 			    (iup:attribute-set! 
 			     command-text-box "VALUE"
 			     (conc "megatest -target " keystring " -runname " runname 
 				   " -run -testpatt " (conc testname "/" (if (equal? item-path "")

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -1561,15 +1561,16 @@
 	       " -preclean -clean-cache"))))
      (iup:menu-item
       (conc "Kill " test-name)
       #:action
       (lambda (obj)
+        ;; (rmt:test-set-state-status-by-id run-id test-id "KILLREQ" #f #f)
 	(common:run-a-command
 	 (conc "megatest -set-state-status KILLREQ,n/a -target " target
                " -runname " runname
 	       " -testpatt " test-name
-	       " -state RUNNING"))))
+	       " -state RUNNING,REMOTEHOSTSTART,LAUNCHED"))))
      (iup:menu-item
       (conc "Clean " test-name)
       #:action
       (lambda (obj)
 	(common:run-a-command
@@ -1578,12 +1579,13 @@
 	       " -testpatt " test-name))))
      (iup:menu-item
       "Start xterm"
       #:action
       (lambda (obj)
-	(let* ((cmd (conc (car (argv)) " -xterm " run-id "," test-id "&")))
-	  (system cmd))))
+        (dcommon:examine-xterm run-id test-id)))
+	;;(let* ((cmd (conc (car (argv)) " -xterm " run-id "," test-id "&")))
+	;; (system cmd))))
      (iup:menu-item
       "Edit testconfig"
       #:action
       (lambda (obj)
 	(let* ((all-tests (tests:get-all))