Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -1208,11 +1208,12 @@
 	   (run-ids  (if toppath (db:get-all-run-ids mtdb))))
       ;; 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)))
+	 (let ((testrecs (db:get-all-tests-info-by-run-id mtdb run-id))
+	       (dbstruct (if toppath (make-dbr:dbstruct path: toppath) #f)))
 	   (debug:print 0 "INFO: Updating " (length testrecs) " records for run-id=" run-id)
 	   (db:replace-test-records dbstruct run-id testrecs)))
        run-ids)
       (set! *didsomething* #t)
       (db:close-all dbstruct)))