Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -1330,10 +1330,16 @@
 	       (dbstruct (if toppath (make-dbr:dbstruct path: toppath local: #t) #f)))
 	   (debug:print 0 "INFO: Propagating " (length testrecs) " records for run-id=" run-id " to run specific db")
 	   (db:replace-test-records dbstruct run-id testrecs)
 	   (sqlite3:finalize! (dbr:dbstruct-get-rundb dbstruct))))
        run-ids)
+      ;; now ensure all newdb data are synced to megatest.db
+      (for-each
+       (lambda (run-id)
+	 (let ((fromdb (if toppath (make-dbr:dbstruct path: toppath local: #t) #f)))
+	   (db:sync-tables db:sync-tests-only (db:get-db fromdb run-id) mtdb)))
+       run-ids)
       (set! *didsomething* #t)
       (db:close-all dbstruct)))
 
 ;;======================================================================
 ;; Exit and clean up

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -121,15 +121,10 @@
 		   (cons 'none 0)
 		   (let loop ((cmd (car cmds))
 			      (tal (cdr cmds))
 			      (max-cmd (car cmds))
 			      (res 0))
-;; 		     (if (member cmd '(delete-tests-in-state)) ;; black list these outliers
-;; 			 (if (null? tal)
-;; 			     (if (> tot 20)
-;; 				 (cons 
-;; 
 		     (let* ((cmd-dat (hash-table-ref *db-stats* cmd))
 			    (tot     (vector-ref cmd-dat 0))
 			    (curravg (/ (vector-ref cmd-dat 1) (vector-ref cmd-dat 0))) ;; count is never zero by construction
 			    (currmax (max res curravg))
 			    (newmax-cmd (if (> curravg res) cmd max-cmd)))