Index: junk/data.txt
==================================================================
--- junk/data.txt
+++ junk/data.txt
@@ -1,27 +1,1 @@
 0 0 0 1 2 3 4 5 6
-0 0 1 1 2 3 4 5 6
-0 0 2 1 2 3 4 5 6
-0 1 0 1 2 3 4 5 6
-0 1 1 1 2 3 4 5 6
-0 1 2 1 2 3 4 5 6
-0 2 0 1 2 3 4 5 6
-0 2 1 1 2 3 4 5 6
-0 2 2 1 2 3 4 5 6
-1 0 0 1 2 3 4 5 6
-1 0 1 1 2 3 4 5 6
-1 0 2 1 2 3 4 5 6
-1 1 0 1 2 3 4 5 6
-1 1 1 1 2 3 4 5 6
-1 1 2 1 2 3 4 5 6
-1 2 0 1 2 3 4 5 6
-1 2 1 1 2 3 4 5 6
-1 2 2 1 2 3 4 5 6
-2 0 0 1 2 3 4 5 6
-2 0 1 1 2 3 4 5 6
-2 0 2 1 2 3 4 5 6
-2 1 0 1 2 3 4 5 6
-2 1 1 1 2 3 4 5 6
-2 1 2 1 2 3 4 5 6
-2 2 0 1 2 3 4 5 6
-2 2 1 1 2 3 4 5 6
-2 2 2 1 2 3 4 5 6

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -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)))