@@ -116,11 +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)
+  -redo-logpro            : do not rerun tests, but reapply logpro rules (ez-step flavor tests only; runs all tests unless -testpatt specified)
   -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
@@ -293,11 +293,11 @@
 			"-set-toplog"
 			"-runstep"
 			"-logpro"
 			"-m"
 			"-rerun"
-                        "-redo-logpro"
+
 			"-days"
 			"-rename-run"
 			"-to"
 			;; values and messages
 			":category"
@@ -405,10 +405,11 @@
 			;; queries
 			"-test-paths" ;; get path(s) to a test, ordered by youngest first
 
 			"-runall"    ;; run all tests, respects -testpatt, defaults to %
 			"-run"       ;; alias for -runall
+                        "-redo-logpro"
 			"-remove-runs"
                         "-keep-records" ;; use with -remove-runs to remove only the run data
 			"-rebuild-db"
 			"-cleanup-db"
 			"-rollup"
@@ -574,11 +575,11 @@
 		       (process:children #f))
 		      (original-exit exit-code)))))
 
 ;; for some switches always print the command to stderr
 ;;
-(if (args:any? "-run" "-runall" "-remove-runs" "-set-state-status")
+(if (args:any? "-run" "-runall" "-remove-runs" "-set-state-status" "-redo-logpro")
     (debug:print 0 *default-log-port* (string-intersperse (argv) " ")))
 
 ;; some switches imply homehost. Exit here if not on homehost
 ;;
 (let ((homehost-required  (list "-cleanup-db" "-server")))
@@ -1093,10 +1094,17 @@
      "-set-state-status"
      "set state and status"
      (lambda (target runname keys keyvals)
        (operate-on 'set-state-status))))
 
+(if (args:get-arg "-redo-logpro")
+    (general-run-call 
+     "-redo-logpro"
+     "rerun logpro in ezsteps"
+     (lambda (target runname keys keyvals)
+       (operate-on 'redo-logpro))))
+
 (if (or (args:get-arg "-set-run-status")
 	(args:get-arg "-get-run-status"))
     (general-run-call
      "-set-run-status"
      "set run status"
@@ -1247,21 +1255,10 @@
   (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% ...