@@ -28,10 +28,11 @@
 (declare (uses runconfig))
 (declare (uses tests))
 (declare (uses server))
 (declare (uses mt))
 (declare (uses archive))
+;;(declare (uses redo-logpro))
 ;; (declare (uses filedb))
 
 (include "common_records.scm")
 (include "key_records.scm")
 (include "db_records.scm")
@@ -2009,10 +2010,11 @@
 ;;    'set-state-status
 ;;
 ;; NB// should pass in keys?
 ;;
 (define (runs:operate-on action target runnamepatt testpatt #!key (state #f)(status #f)(new-state-status #f)(mode #f)(options '()))
+  (BB> "in runs:operate-on with action >"action"<")
   (common:clear-caches) ;; clear all caches
   (let* ((db           #f)
 	 ;; (tdbdat       (tasks:open-db))
 	 (keys         (rmt:get-keys))
 	 (rundat       (mt:get-runs-by-patt keys runnamepatt target))
@@ -2069,10 +2071,11 @@
 		    (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)
+                    (BB> "redo-logpro operate-on hook 1")
                     (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)
@@ -2235,12 +2238,15 @@
                                         (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)
+                                (BB> "redo-logpro operate-on hook 2")
+                                (redo-logpro:redo-logpro run-id test-id new-test-dat)
                                 (debug:print-error 0 "redo-logpro unimplemented")
-                                ;;(exit 1)
+                                (if (not (null? tal))
+				    (loop (car tal)(cdr tal)))
                                 )
 			       ((set-state-status)
                                 (let* ((new-state (car state-status))
                                        (new-status (cadr state-status))
                                        (test-id (db:test-get-id test))