Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -90,11 +90,11 @@
     ;; (db:set-sync db)
     db))
 
 (define (open-in-mem-db)
   (let* ((path   (configf:lookup *configdat* "setup" "tmpdb"))
-	 (fname  (if path (conc path "/temp-megatest.db")))
+	 (fname  (if path (conc path "/temp-megatest.db") #f))
 	 (exists (and path (file-exists? fname)))
 	 (db     (if path
 		     (begin
 		       (create-directory path #t)
 		       (sqlite3:open-database fname))