@@ -1704,24 +1704,24 @@
                                 ;; state:  states
                                 status: statuses
                                 new-state-status: "NOT_STARTED,n/a")))
          ;; RERUN ALL
          (if (args:get-arg "-rerun-all") ;; first set states/statuses correct
-             (begin
+             (let* ((rconfig (full-runconfigs-read)))
                (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 rconfig) ;; (args:get-arg "-testpatt")
                                 state:  #f
                                 ;; 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 rconfig) ;; (args:get-arg "-testpatt")
                                 ;; state:  states
                                 status: #f
                                 new-state-status: "NOT_STARTED,n/a")))
          (let* ((config-reruns      (let ((x (configf:lookup *configdat* "setup" "reruns")))
 			       				(if x (string->number x) #f)))