Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -638,11 +638,11 @@
 (define common:get-area-name common:get-testsuite-name)
 
 ;; WARNING: This code falls back to using the global Megatest
 ;;          variable *toppath*
 ;; 
-(define (common:get-db-tmp-area dbstruct)
+(define (common:get-db-tmp-area #!key (dbstruct #f))
   (if (and dbstruct (dbr:dbstruct-tmpdb-path dbstruct)) ;; *db-cache-path*
       (dbr:dbstruct-tmpdb-path) ;; *db-cache-path*
       (let ((toppath (or (and dbstruct (dbr:dbstruct-area-path dbstruct)) *toppath*))
 	    (tsname  (or (and dbstruct (dbr:dbstruct-area-name dbstruct))(common:get-testsuite-name))))
 	(if toppath ;; common:get-create-writeable-dir

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -82,11 +82,10 @@
 ;;
 ;;   NOTE: This returns the tmpdb path/handle pair.
 ;;   NOTE: This does do a sync (the db:open-db proc only does an initial sync if called with do-sync: #t
 ;;   NOTE: Longer term consider replacing db:open-db with this
 ;;
-
 ;; NOTE: loose ends!!
 ;;    db:open-db              -> not properly using tmpdb path
 ;;    common:get-db-tmp-area  -> using *toppath* and common:get-testsuite-area
 ;;    
 (define (db:dashboard-open-db areas area-name area-path)