Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -1069,18 +1069,10 @@
     (general-run-call 
      "-kill-runs"
      "kill runs"
      (lambda (target runname keys keyvals)
        (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"

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -2247,12 +2247,16 @@
                                        #t)))
                                   (if (not (null? tal))
 				    (loop (car tal)(cdr tal)))
                                   )
                                  ((member test-state (list "RUNNING" "LAUNCHED" "REMOTEHOSTSTART" "KILLREQ"))
+                                  (debug:print 1 *default-log-port* "INFO: issuing killreq to test "test-fulln)
                                   (mt:test-set-state-status-by-id run-id (db:test-get-id test) "KILLREQ" "n/a" #f)
                                   (if (not (null? tal))
+				      (loop (car tal)(cdr tal))))
+                                 (else
+                                  (if (not (null? tal))
 				      (loop (car tal)(cdr tal)))
                                   )))
 			       ((set-state-status)
                                 (let* ((new-state (car state-status))
                                        (new-status (cadr state-status))