@@ -51,10 +51,11 @@
 (declare (uses mt))
 (declare (uses api))
 (declare (uses tasks)) ;; only used for debugging.
 (declare (uses env))
 (declare (uses diff-report))
+(declare (uses redo-logpro))
 (declare (uses ftail))
 (import ftail)
 
 (define *db* #f) ;; this is only for the repl, do not use in general!!!!
 
@@ -115,10 +116,11 @@
   -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
+  -redo-logpro            : do not rerun tests, but reapply logpro rules (ez-step flavor tests only)
   -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
@@ -291,10 +293,11 @@
 			"-set-toplog"
 			"-runstep"
 			"-logpro"
 			"-m"
 			"-rerun"
+                        "-redo-logpro"
 			"-days"
 			"-rename-run"
 			"-to"
 			;; values and messages
 			":category"
@@ -1243,10 +1246,23 @@
                             table-rows))))
   (set! *didsomething* #t)
   (set! *time-to-exit* #t))
 
 
+
+;; redo logpro
+(if (args:get-arg "-redo-logpro")
+  (let* ((result (redo-logpro:redo-logpro)))
+    (set! *didsomething* #t)
+    (set! *time-to-exit* #t)
+    (cond
+     ((not result)
+      
+      (exit 1))
+     (else
+      #t))))
+
 
 ;; NOTE: list-runs and list-db-targets operate on local db!!!
 ;;
 ;; IDEA: megatest list -runname blah% ...
 ;;