Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1619,14 +1619,14 @@
   (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 8 "INFO: replace-test-records, qrystr=" qrystr)
+		  (debug:print 0 "INFO: replace-test-records, qrystr=" qrystr)
 		  (for-each 
 		   (lambda (rec)
-		     (debug:print 0 "INFO: Inserting values: " (string-intersperse (map conc (vector->list rec)) ", "))
+		     (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)))))
 	
 

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -1298,13 +1298,14 @@
       ;; sync runs, test_meta etc.
       (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) #f)))
+	       (dbstruct (if toppath (make-dbr:dbstruct path: toppath local: #t) #f)))
 	   (debug:print 0 "INFO: Updating " (length testrecs) " records for run-id=" run-id)
-	   (db:replace-test-records dbstruct run-id testrecs)))
+	   (db:replace-test-records dbstruct run-id testrecs)
+	   (sqlite3:finalize! (dbr:dbstruct-get-rundb dbstruct))))
        run-ids)
       (set! *didsomething* #t)
       (db:close-all dbstruct)))
 
 ;;======================================================================