Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -1618,11 +1618,11 @@
        (lambda (target runname keys keyvals)
          (if (args:get-arg "-rerun-clean") ;; first set states/statuses correct
              (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")))
+                                 "FAIL,INCOMPLETE,ABORT,CHECK,DEAD,PREQ_FAIL,PREQ_DISCARDED")))
                (hash-table-set! args:arg-hash "-preclean" #t)
                (runs:operate-on 'set-state-status
                                 target
                                 (common:args-get-runname)  ;; (or (args:get-arg "-runname")(args:get-arg ":runname"))
                                 "%" ;; (common:args-get-testpatt #f) ;; (args:get-arg "-testpatt")