Index: dbmod.scm
==================================================================
--- dbmod.scm
+++ dbmod.scm
@@ -47,12 +47,16 @@
 ;;
 (define (dbmod:run-id->dbfname run-id)
   (conc (dbfile:run-id->dbnum run-id)".db"))
 
 (define (dbmod:get-dbdir dbstruct)
-  (let* ((areapath (dbr:dbstruct-areapath dbstruct)))
-    (conc areapath"/.megatest")))
+  (let* ((areapath (dbr:dbstruct-areapath dbstruct))
+	 (dbdir    (conc areapath"/.megatest")))
+    (if (and (file-write-access? areapath)
+	     (not (file-exists? dbdir)))
+	(create-directory dbdir))
+    dbdir))
 
 (define (dbmod:run-id->full-dbfname dbstruct run-id)
   (conc (dbmod:get-dbdir dbstruct run-id)"/"(dbmod:run-id->dbfname run-id)))
 
 ;;======================================================================