@@ -224,10 +224,11 @@
   (let ((run-ids (hash-table-keys *db-local-sync*)))
     (if (and (not (null? run-ids))
 	     (configf:lookup *configdat* "setup" "megatest-db"))
 	(db:multi-db-sync run-ids 'new2old)))
   (if *dbstruct-db* (db:close-all *dbstruct-db*))
+  (if *inmemdb*     (db:close-all *inmemdb*))
   (if (and *megatest-db*
 	   (sqlite3:database? *megatest-db*))
       (begin
 	(sqlite3:interrupt! *megatest-db*)
 	(sqlite3:finalize! *megatest-db* #t)