Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -138,12 +138,13 @@
 
 ;; NB// #f => return dbdir only
 ;;      (was planned to be;  zeroth db with name=main.db)
 ;;
 (define (db:dbfile-path run-id area-dat)
-  (let* ((dbdir           (or (configf:lookup *configdat* "setup" "dbdir")
-	 (configdat       (megatest:area-configdat area-dat))
+  (let* ((configdat       (megatest:area-configdat area-dat))
+         (dbdir           (or (configf:lookup configdat "setup" "dbdir")
+		              (conc (configf:lookup configdat "setup" "linktree") "/.db")))
 	 (toppath         (megatest:area-path      area-dat))
 	 (link-tree-path  (configf:lookup configdat "setup" "linktree"))
 	 (dbpath          (configf:lookup configdat "setup" "dbdir"))
 	 (fname           (if run-id
 			      (if (eq? run-id 0) "main.db" (conc run-id ".db"))