Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -1630,27 +1630,30 @@
       (general-run-call 
        "-runall"
        "run all tests"
        (lambda (target runname keys keyvals)
          (if (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")))
                (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")
+                                ;; "%" ;; (common:args-get-testpatt #f) ;; (args:get-arg "-testpatt")
+                                (common:args-get-testpatt #f) ;; (args:get-arg "-testpatt")
                                 state:  states
                                 ;; status: statuses
                                 new-state-status: "NOT_STARTED,n/a")
                (runs:clean-cache target runname *toppath*)
                (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")
+                                ;; "%" ;; (common:args-get-testpatt #f) ;; (args:get-arg "-testpatt")
+                                (common:args-get-testpatt #f) ;; (args:get-arg "-testpatt")
                                 ;; state:  states
                                 status: statuses
                                 new-state-status: "NOT_STARTED,n/a")))
          ;; RERUN ALL
          (if (args:get-arg "-rerun-all") ;; first set states/statuses correct