@@ -292,11 +292,11 @@
 			"-set-toplog"
 			"-runstep"
 			"-logpro"
 			"-m"
 			"-rerun"
-                        "-kill-runs"
+
 			"-days"
 			"-rename-run"
 			"-to"
 			;; values and messages
 			":category"
@@ -405,10 +405,11 @@
 			"-test-paths" ;; get path(s) to a test, ordered by youngest first
 
 			"-runall"    ;; run all tests, respects -testpatt, defaults to %
 			"-run"       ;; alias for -runall
 			"-remove-runs"
+                        "-kill-runs"
                         "-keep-records" ;; use with -remove-runs to remove only the run data
 			"-rebuild-db"
 			"-cleanup-db"
 			"-rollup"
 			"-update-meta"
@@ -1040,11 +1041,11 @@
       (exit 1))
      ((not (or (args:get-arg ":runname")
 	       (args:get-arg "-runname")))
       (debug:print-error 0 *default-log-port* "Missing required parameter for " action ", you must specify the run name pattern with -runname patt")
       (exit 2))
-     ((not (args:get-arg "-testpatt"))
+     ((not (or (args:get-arg "-testpatt") (eq? action 'kill-runs)))
       (debug:print-error 0 *default-log-port* "Missing required parameter for " action ", you must specify the test pattern with -testpatt")
       (exit 3))
      (else
       (if (not (car *configinfo*))
 	  (begin
@@ -1067,11 +1068,20 @@
 (if (args:get-arg "-kill-runs")
     (general-run-call 
      "-kill-runs"
      "kill runs"
      (lambda (target runname keys keyvals)
-       (operate-on 'kill-runs mode: #f))))
+       (operate-on 'kill-runs mode: #f)
+
+       (operate-on 'set-state-status
+		   state: (common:args-get-state)
+		   status: (common:args-get-status)
+		   new-state-status: (args:get-arg "-set-state-status")
+
+
+                   mode: #f) ;; kill-req on running,launched,remotehoststart things, 
+       )))
 
 (if (args:get-arg "-remove-runs")
     (general-run-call 
      "-remove-runs"
      "remove runs"