Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -615,11 +615,11 @@
 (define (common:exit-on-version-changed)
   (if (and *toppath*              ;; do nothing if *toppath* not yet provided
 	   (common:on-homehost?))
       (if (common:api-changed?)
 	  (let* ((mtconf (conc (get-environment-variable "MT_RUN_AREA_HOME") "/megatest.config"))
-                 (dbfile  (conc (get-environment-variable "MT_RUN_AREA_HOME") ".megatest/main.db"))
+                 (dbfile  (conc (get-environment-variable "MT_RUN_AREA_HOME") ".mtdb/main.db"))
                  (read-only (not (file-write-access? dbfile)))
                  (dbstruct (db:setup #t))) ;; (db:setup-db *dbstruct-dbs* *toppath* #f))) ;;  #t)))
 	    (debug:print 0 *default-log-port*
 			 "WARNING: Version mismatch!\n"
 			 "   expected: " (common:version-signature) "\n"
@@ -639,14 +639,14 @@
                (common:cleanup-db dbstruct)))
              ((not (common:file-exists? mtconf))
               (debug:print 0 *default-log-port* "   megatest.config does not exist in this area.  Cannot proceed with megatest version migration.")
               (exit 1))
              ((not (common:file-exists? dbfile))
-              (debug:print 0 *default-log-port* "   .megatest/main.db does not exist in this area.  Cannot proceed with megatest version migration.")
+              (debug:print 0 *default-log-port* "   .mtdb/main.db does not exist in this area.  Cannot proceed with megatest version migration.")
               (exit 1))
              ((not (eq? (current-user-id)(file-owner mtconf)))
-              (debug:print 0 *default-log-port* "   You do not own .megatest/main.db in this area.  Cannot proceed with megatest version migration.")
+              (debug:print 0 *default-log-port* "   You do not own .mtdb/main.db in this area.  Cannot proceed with megatest version migration.")
               (exit 1))
              (read-only
               (debug:print 0 *default-log-port* "   You have read-only access to this area.  Cannot proceed with megatest version migration.")
               (exit 1))
              (else
@@ -971,16 +971,16 @@
 					  "/megatest_localdb/"
 					  tsname
 					  (string-translate toppath "/" "."))
 				    ))))
 		(set! *db-cache-path* dbpath)
-		;; ensure megatest area has .megatest
-		(let ((dbarea (conc *toppath* "/.megatest")))
+		;; ensure megatest area has .mtdb
+		(let ((dbarea (conc *toppath* "/.mtdb")))
 		  (if (not (file-exists? dbarea))
 		      (create-directory dbarea)))
-		;; ensure tmp area has .megatest
-		(let ((dbarea (conc dbpath "/.megatest")))
+		;; ensure tmp area has .mtdb
+		(let ((dbarea (conc dbpath "/.mtdb")))
 		  (if (not (file-exists? dbarea))
 		      (create-directory dbarea)))
 		dbpath))
 	  #f)))
 

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -3912,11 +3912,11 @@
 
 
 ;; Sync to tmp only if in read-only mode.
 
 (define (sync-db-to-tmp tabdat)
-  (let* ((db-file "./.megatest/main.db"))
+  (let* ((db-file "./.mtdb/main.db"))
     (if (and (not (file-write-access? db-file)) ( > (current-seconds) (+ last-copy-time 5)))
       (begin
         (db:multi-db-sync (db:setup #f) 'old2new)
         (set! last-copy-time (current-seconds))
       )

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -499,20 +499,20 @@
 	 
 ;; (define (db:all-db-sync dbstruct)
 ;;   (let* ((dbdat (db:open-db dbstruct #f db:initialize-main-db))
 ;; 	 (data-synced       0) ;; count of changed records
 ;;     (tmp-area       (common:get-db-tmp-area))
-;;     (dbfiles        (glob (conc tmp-area"/.megatest/*.db")))
+;;     (dbfiles        (glob (conc tmp-area"/.mtdb/*.db")))
 ;;     (sync-durations (make-hash-table))
 ;;     (no-sync-db        (db:open-no-sync-db)))
 ;;     (for-each
 ;;      (lambda (file) ;; tmp db file
 ;;        (debug:print-info 3 *default-log-port* "file: " file)
 ;;        (let* ((fname       (conc (pathname-file file) ".db")) ;; fname is tmp db file
 ;;               (wal-file (conc fname "-wal"))
 ;;               (shm-file (conc fname "-shm"))
-;; 	      (fulln       (conc *toppath*"/.megatest/"fname)) ;; fulln is nfs db name
+;; 	      (fulln       (conc *toppath*"/,mtdb/"fname)) ;; fulln is nfs db name
 ;;               (wal-time     (if (file-exists? wal-file)             
 ;; 			       (file-modification-time wal-file)
 ;;                                0))
 ;;               (shm-time     (if (file-exists? shm-file)             
 ;; 			       (file-modification-time shm-file)
@@ -601,11 +601,11 @@
 
     ;; kill servers
     (if killservers (db:kill-servers))
     
     (if (not dbfiles)
-	(debug:print-error 0 *default-log-port* "no dbfiles found in " (conc *toppath* "/.megatest"))
+	(debug:print-error 0 *default-log-port* "no dbfiles found in " (conc *toppath* "/.mtdb"))
 	(for-each
 	 (lambda (srcfile)
 	   (debug:print-info 3 *default-log-port* "file: " srcfile)
 	   (let* ((fname    (conc (pathname-file srcfile) ".db"))
 		  (basename (pathname-file srcfile))
@@ -641,11 +641,11 @@
 			(subdb    (dbfile:open-db dbstruct run-id dbfile:db-init-proc))
 			;;        (or (dbfile:get-subdb dbstruct run-id)
 			;;            (dbfile:init-subdb dbstruct run-id dbfile:db-init-proc)))
 			(mtdb      (dbr:subdb-mtdbdat subdb))
 			;;
-			;; BUG: -mrw- I think this next line is wrong. run-id should be the path to .megatest/<runid>.db
+			;; BUG: -mrw- I think this next line is wrong. run-id should be the path to .mtdb/<runid>.db
 			;; 
 			(tmpdb     (dbfile:open-db dbstruct run-id dbfile:db-init-proc)))
 		   
 		   (debug:print-info 2 *default-log-port* "delta syncing file: " srcfile ", time diff: " (- time1 time2) " seconds")
 		   (if old2new