@@ -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)))
 
 ;;======================================================================