Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -429,32 +429,10 @@
 
 ;;======================================================================
 ;; M I S C   U T I L S
 ;;======================================================================
 
-;; Convert strings like "5s 2h 3m" => 60x60x2 + 3x60 + 5
-(define (common:hms-string->seconds tstr)
-  (let ((parts     (string-split tstr))
-	(time-secs 0)
-	;; s=seconds, m=minutes, h=hours, d=days
-	(trx       (regexp "(\\d+)([smhd])")))
-    (for-each (lambda (part)
-		(let ((match  (string-match trx part)))
-		  (if match
-		      (let ((val (string->number (cadr match)))
-			    (unt (caddr match)))
-			(if val 
-			    (set! time-secs (+ time-secs (* val
-							    (case (string->symbol unt)
-							      ((s) 1)
-							      ((m) 60)
-							      ((h) (* 60 60))
-							      ((d) (* 24 60 60))
-							      (else 0))))))))))
-	      parts)
-    time-secs))
-		       
 ;; one-of args defined
 (define (args-defined? . param)
   (let ((res #f))
     (for-each 
      (lambda (arg)
@@ -944,10 +922,32 @@
 		  
 ;;======================================================================
 ;; T I M E   A N D   D A T E
 ;;======================================================================
 
+;; Convert strings like "5s 2h 3m" => 60x60x2 + 3x60 + 5
+(define (common:hms-string->seconds tstr)
+  (let ((parts     (string-split tstr))
+	(time-secs 0)
+	;; s=seconds, m=minutes, h=hours, d=days
+	(trx       (regexp "(\\d+)([smhd])")))
+    (for-each (lambda (part)
+		(let ((match  (string-match trx part)))
+		  (if match
+		      (let ((val (string->number (cadr match)))
+			    (unt (caddr match)))
+			(if val 
+			    (set! time-secs (+ time-secs (* val
+							    (case (string->symbol unt)
+							      ((s) 1)
+							      ((m) 60)
+							      ((h) (* 60 60))
+							      ((d) (* 24 60 60))
+							      (else 0))))))))))
+	      parts)
+    time-secs))
+		       
 (define (seconds->hr-min-sec secs)
   (let* ((hrs (quotient secs 3600))
 	 (min (quotient (- secs (* hrs 3600)) 60))
 	 (sec (- secs (* hrs 3600)(* min 60))))
     (conc (if (> hrs 0)(conc hrs "hr ") "")
@@ -956,11 +956,11 @@
 
 (define (seconds->time-string sec)
   (time->string 
    (seconds->local-time sec) "%H:%M:%S"))
 
-(define (sbeconds->work-week/day-time sec)
+(define (seconds->work-week/day-time sec)
   (time->string
    (seconds->local-time sec) "ww%V.%u %H:%M"))
 
 (define (seconds->work-week/day sec)
   (time->string

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -76,10 +76,11 @@
                             Optionally use :state and :status
   -set-state-status X,Y   : set state to X and status to Y, requires controls per -remove-runs
   -rerun FAIL,WARN...     : force re-run for tests with specificed status(s)
   -rerun-clean            : set all tests not COMPLETED+PASS,WARN,WAIVED to NOT_STARTED,n/a
                             and then run the specified testpatt with -preclean
+  -rerun-all              : set all tests to NOT_STARTED,n/a and run with -preclean
   -lock                   : lock run specified by target and runname
   -unlock                 : unlock run specified by target and runname
   -set-run-status status  : sets status for run to status, requires -target and -runname
   -get-run-status         : gets status for run specified by target and runname
   -run-wait               : wait on run specified by target and runname
@@ -271,10 +272,11 @@
 			"-summarize-items"
 		        "-gui"
 			"-daemonize"
 			"-preclean"
 			"-rerun-clean"
+			"-rerun-all"
 			"-clean-cache"
 
 			;; misc
 			"-repl"
 			"-lock"
@@ -1390,10 +1392,11 @@
 
 ;; run all tests are are Not COMPLETED and PASS or CHECK
 (if (or (args:get-arg "-runall")
 	(args:get-arg "-run")
 	(args:get-arg "-rerun-clean")
+	(args:get-arg "-rerun-all")
 	(args:get-arg "-runtests"))
     (general-run-call 
      "-runall"
      "run all tests"
      (lambda (target runname keys keyvals)
@@ -1414,10 +1417,28 @@
 			      target
 			      (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: statuses
+			      new-state-status: "NOT_STARTED,n/a")))
+       ;; RERUN ALL
+       (if (args:get-arg "-rerun-all") ;; first set states/statuses correct
+	   (begin
+	     (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")
+			      state:  #f
+			      ;; status: statuses
+			      new-state-status: "NOT_STARTED,n/a")
+	     (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")
+			      ;; state:  states
+			      status: #f
 			      new-state-status: "NOT_STARTED,n/a")))
        (runs:run-tests target
 		       runname
 		       #f ;; (common:args-get-testpatt #f)
 		       ;; (or (args:get-arg "-testpatt")

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -949,11 +949,11 @@
 			(not (and prevdat
 				  (equal? state  (db:test-get-state  prevdat))
 				  (equal? status (db:test-get-status prevdat)))))
 		   (let ((fmt   (runs:gendat-inc-results-fmt *runs:general-data*))
 			 (dtime (seconds->year-work-week/day-time event-time))) 
-		     (if (runs:lownoise "inc-print" 120)
+		     (if (runs:lownoise "inc-print" 600)
 			 (format #t fmt "State" "Status" "Start Time" "Duration" "Test name" "Item path"))
 		     (debug:print 0 *default-log-port* "fmt: " fmt " state: " state " status: " status " test-name: " test-name " item-path: " item-path " dtime: " dtime)
 		     ;; (debug:print 0 #f "event-time: " event-time " duration: " duration)
 		     (format #t fmt
 			     state