@@ -1669,17 +1669,24 @@
                                 (common:args-get-runname)  ;; (or (args:get-arg "-runname")(args:get-arg ":runname"))
                                 "%" ;; (common:args-get-testpatt #f) ;; (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)))
+               (rerun-cnt (if config-reruns
+                              config-reruns
+                              1)))
+
          (runs:run-tests target
                          runname
                          #f ;; (common:args-get-testpatt #f)
                          ;; (or (args:get-arg "-testpatt")
                          ;;     "%")
                          user
-                         args:arg-hash)))))
+                         args:arg-hash
+                         run-count: rerun-cnt))))))
 
 ;;======================================================================
 ;; run one test
 ;;======================================================================