Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1633,22 +1633,22 @@
   (db:with-db dbstruct run-id #t 
 	      (lambda (db)
 		(let* ((qmarks (string-intersperse (make-list (length db:test-record-fields) "?") ","))
 		       (qrystr (conc "INSERT OR REPLACE INTO tests (" db:test-record-qry-selector ") VALUES (" qmarks ");"))
 		       (qry    (sqlite3:prepare db qrystr)))
-		  (debug:print 0 "INFO: replace-test-records, qrystr=" qrystr)
+		  (debug:print 0 "INFO: migrating test records for run with id " run-id)
 		  (for-each 
 		   (lambda (rec)
-		     (debug:print 0 "INFO: Inserting values: " (string-intersperse (map conc (vector->list rec)) ",") "\n")
+		     ;; (debug:print 0 "INFO: Inserting values: " (string-intersperse (map conc (vector->list rec)) ",") "\n")
 		     (apply sqlite3:execute qry (vector->list rec)))
 		   testrecs)
 		  (sqlite3:finalize! qry)))))
 
 ;; map a test-id into the proper range
 ;;
 (define (db:adj-test-id mtdb min-test-id test-id)
-  (if (> test-id min-test-id)
+  (if (>= test-id min-test-id)
       test-id
       (let loop ((new-id min-test-id))
 	(let ((test-id-found #f))
 	  (sqlite3:for-each-row 
 	   (lambda (id)
@@ -1658,16 +1658,17 @@
 	   new-id)
 	  ;; if test-id-found then need to try again
 	  (if test-id-found
 	      (loop (+ new-id 1))
 	      (begin
-		(debug:print 0 "New test id " new-id " found for test with id " test-id)
+		(debug:print-info 0 "New test id " new-id " selected for test with id " test-id)
 		(sqlite3:execute mtdb "UPDATE tests SET id=? WHERE id=?;" new-id test-id)))))))
 
 ;; move test ids into the 30k * run_id range
 ;;
 (define (db:prep-megatest.db-adj-test-ids mtdb run-id testrecs)
+  (debug:print-info 0 "Adjusting test ids in megatest.db for run " run-id)
   (let ((min-test-id (* run-id 30000)))
     (for-each 
      (lambda (testrec)
        (let* ((test-id (vector-ref testrec (db:field->number "id" db:test-record-fields))))
 	 (db:adj-test-id mtdb min-test-id test-id)))

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -1305,11 +1305,11 @@
       (db:sync-tables (db:sync-main-list mtdb) mtdb (db:get-db dbstruct #f))
       (for-each 
        (lambda (run-id)
 	 (let ((testrecs (db:get-all-tests-info-by-run-id mtdb run-id))
 	       (dbstruct (if toppath (make-dbr:dbstruct path: toppath local: #t) #f)))
-	   (debug:print 0 "INFO: Updating " (length testrecs) " records for run-id=" run-id)
+	   (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)
       (set! *didsomething* #t)
       (db:close-all dbstruct)))