Megatest

       (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: 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
;;======================================================================