Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -142,12 +142,15 @@
 ;; NB// #f => zeroth db with name=main.db
 ;;
 (define (db:dbfile-path run-id)
   (let* (;; (toppath      (dbr:dbstruct-get-path  dbstruct))
 	 (link-tree-path  (configf:lookup *configdat* "setup" "linktree"))
+	 (dbpath          (configf:lookup *configdat* "setup" "dbdir"))
 	 (fname           (if (eq? run-id 0) "main.db" (conc run-id ".db")))
-	 (dbdir           (conc link-tree-path "/.db/")))
+	 (dbdir           (if dbpath
+			      dbpath
+			      (conc link-tree-path "/.db/"))))
     (handle-exceptions
      exn
      (begin
        (debug:print 0 "ERROR: Couldn't create path to " dbdir)
        (exit 1))

Index: tests/fullrun/megatest.config
==================================================================
--- tests/fullrun/megatest.config
+++ tests/fullrun/megatest.config
@@ -27,14 +27,15 @@
 # this may save a few milliseconds on launching tests
 # launchwait no
 waivercommentpatt ^WW\d+ [a-z].*
 incomplete-timeout 1
 
-# yes, anything else is no
-run-wait yes
+# set the dbdir, default is linktree
+dbdir #{getenv MT_RUN_AREA_HOME}/db
 
-
+# wait for runs to completely complete. yes, anything else is no
+run-wait yes
 
 # If set to "default" the old code is used. Otherwise defaults to 200 or uses
 # numeric value given.
 #
 runqueue 20