@@ -591,11 +591,11 @@
 	 (old2new (member 'old2new options))
 	 (dejunk (member 'dejunk options))
 	 (killservers (member 'killservers options))
 	 (src-area (if old2new *toppath* tmp-area))
 	 (dest-area (if old2new tmp-area *toppath*))
-	 (dbfiles        (if old2new (glob (conc *toppath* "/.megatest/*.db")) (glob (conc tmp-area "/.megatest/*.db"))))
+	 (dbfiles        (if old2new (glob (conc *toppath* "/.mtdb/*.db")) (glob (conc tmp-area "/.mtdt/*.db"))))
 	 (keys (db:get-keys dbstruct))
 	 (sync-durations (make-hash-table)))
 
     ;; kill servers
     (if killservers (db:kill-servers))
@@ -606,12 +606,12 @@
 	 (lambda (srcfile)
 	   (debug:print-info 3 *default-log-port* "file: " srcfile)
 	   (let* ((fname    (conc (pathname-file srcfile) ".db"))
 		  (basename (pathname-file srcfile))
 		  (run-id   (if (string= basename "main") #f (string->number basename)))
-		  (destfile (conc dest-area "/.megatest/" fname))
-		  (dest-directory  (conc dest-area "/.megatest/"))
+		  (destfile (conc dest-area "/.mtdb/" fname))
+		  (dest-directory  (conc dest-area "/.mtdb/"))
 		  (time1    (file-modification-time srcfile))
 		  (time2    (if (file-exists? destfile)
 				(begin
 				  (debug:print-info 2 *default-log-port* "destfile " destfile " exists")
 				  (file-modification-time destfile))
@@ -1812,11 +1812,11 @@
 ;;
 ;; NOTE: This DOESN'T (necessarily) get the real run ids, but the number of the <number>.db!!
 
 (define (db:get-changed-run-ids since-time)
   (let* ((dbdir      (db:dbfile-path)) ;; (configf:lookup *configdat* "setup" "dbdir"))
-	 (alldbs     (glob (conc dbdir "/.megatest/[0-9]*.db")))
+	 (alldbs     (glob (conc dbdir "/.mtdb/[0-9]*.db")))
 	 (changed    (filter (lambda (dbfile)
 			       (> (file-modification-time dbfile) since-time))
 			     alldbs)))
     (delete-duplicates
      (map (lambda (dbfile)
@@ -4522,17 +4522,17 @@
 
 ;; sync for filesystem local db writes
 ;;
 (define (db:run-lock-and-sync no-sync-db)
   (let* ((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)))
     ;; (debug:print-info 0 *default-log-port* "lock-and-sync, dbfiles: "dbfiles)
     (for-each
      (lambda (file)
        (let* ((fname (conc (pathname-file file) ".db"))
-	      (fulln (conc *toppath*"/.megatest/"fname))
+	      (fulln (conc *toppath*"/.mtdb/"fname))
 	      (time1 (if (file-exists? file)
 			 (file-modification-time file)
 			 (begin
 			   (debug:print-info 0 *default-log-port* "Sync - I do not see file "file)
 			   1)))