@@ -2023,11 +2023,11 @@
 	 (state-status (if (string? new-state-status) (string-split new-state-status ",") '(#f #f)))
 	 (rp-mutex     (make-mutex))
 	 (bup-mutex    (make-mutex))
          (keep-records (args:get-arg "-keep-records"))) ;; used in conjunction with -remove-runs to keep the records, TODO: consolidate this with "mode".
 
-    (let* ((write-access-actions '(remove-runs set-state-status archive run-wait))
+    (let* ((write-access-actions '(remove-runs set-state-status archive run-wait redo-logpro))
            (dbfile             (conc  *toppath* "/megatest.db"))
            (readonly-mode      (not (file-write-access? dbfile))))
       (when (and readonly-mode
                  (member action write-access-actions))
         (debug:print-error 0 *default-log-port* "megatest.db is readonly.  Cannot proceed with action ["action"] in which write-access isrequired .")
@@ -2068,10 +2068,12 @@
 		    ;; (if (equal? testpatt "%")
 		    (tasks:kill-runner target run-name testpatt)
 		    
 		    ;; (debug:print 0 *default-log-port* "not attempting to kill any run launcher processes as testpatt is " testpatt))
 		    (debug:print 1 *default-log-port* "Removing tests for run: " runkey " " (db:get-value-by-header run header "runname")))
+                   ((redo-logpro)
+                    (debug:print 1 *default-log-port* "Re-applying new logpro rules without rerun for tests for run: " runkey " " (db:get-value-by-header run header "runname")))
 		   ((set-state-status)
 		    ;; (if (tasks:need-server run-id)(tasks:start-and-wait-for-server tdbdat run-id 10))
 		    (debug:print 1 *default-log-port* "Modifying state and staus for tests for run: " runkey " " (db:get-value-by-header run header "runname")))
 		   ((print-run)
 		    (debug:print 1 *default-log-port* "Printing info for run " runkey ", run=" run ", tests=" tests ", header=" header)
@@ -2132,10 +2134,11 @@
 				  (test-state    (db:test-get-state new-test-dat))
 				  (test-fulln    (db:test-get-fullname new-test-dat))
 				  (uname         (db:test-get-uname    new-test-dat))
 				  (toplevel-with-children (and (db:test-get-is-toplevel test)
 							       (> (rmt:test-toplevel-num-items run-id test-name) 0))))
+                             (BB> "arrived here 2")
 			     (case action
 			       ((remove-runs)
 				;; if the test is a toplevel-with-children issue an error and do not remove
 				(cond
                                  (toplevel-with-children
@@ -2202,10 +2205,11 @@
 				      ) ; end case rem-status
                                     ) ; end let
                                   ); end cond has-subrun
 
                                  (else
+                                  (BB> "arrived 1")
                                   ;; BB - TODO - consider backgrounding to threads to delete tests (work below) 
                                   (debug:print-info 0 *default-log-port* "test: " test-name " itest-state: " test-state)
                                   (if (member test-state (list "RUNNING" "LAUNCHED" "REMOTEHOSTSTART" "KILLREQ"))
                                       (begin
                                         (if (not (hash-table-ref/default test-retry-time test-fulln #f))
@@ -2230,10 +2234,14 @@
                                       (begin
                                         (runs:remove-test-directory new-test-dat mode) ;; 'remove-all)
                                         (if (not (null? tal))
                                             (loop (car tal)(cdr tal)))))))
 				(rmt:update-run-stats run-id (rmt:get-raw-run-stats run-id)))
+                               ((redo-logpro)
+                                (debug:print-error 0 "redo-logpro unimplemented")
+                                ;;(exit 1)
+                                )
 			       ((set-state-status)
                                 (let* ((new-state (car state-status))
                                        (new-status (cadr state-status))
                                        (test-id (db:test-get-id test))
                                        (test-run-dir (db:test-get-rundir new-test-dat))