@@ -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))