Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -1671,11 +1671,11 @@
                           (args:get-arg "-rerun-all"))))
       (general-run-call 
        "-runall"
        "run all tests"
        (lambda (target runname keys keyvals)
-         (if (args:get-arg "-rerun-clean") ;; first set states/statuses correct
+         (if (or (args:get-arg "-kill-rerun") (args:get-arg "-rerun-clean")) ;; first set states/statuses correct
 	     ;; For rerun-clean do we or do we not support the testpatt?
              (let ((states   (or (configf:lookup *configdat* "validvalues" "cleanrerun-states")
                                  "KILLREQ,KILLED,UNKNOWN,INCOMPLETE,STUCK,NOT_STARTED"))
                    (statuses (or (configf:lookup *configdat* "validvalues" "cleanrerun-statuses")
                                  "FAIL,INCOMPLETE,ABORT,CHECK,DEAD,PREQ_FAIL,PREQ_DISCARDED")))