@@ -400,11 +400,11 @@
 
 (define (common:get-db-tmp-area)
   (if *db-cache-path*
       *db-cache-path*
       (let ((dbpath (create-directory (conc "/tmp/" (current-user-name)
-					    "/megatest_cachedb/"
+					    "/megatest_localdb/"
 					    (common:get-testsuite-name) "/"
 					    (string-translate *toppath* "/" ".")) #t)))
 	(set! *db-cache-path* dbpath)
 	dbpath)))
 
@@ -500,15 +500,17 @@
 			 #t))))
     (debug:print-info 4 *default-log-port* "starting exit process, finalizing databases.")
     (if (and no-hurry (debug:debug-mode 18))
 	(rmt:print-db-stats))
     (let ((th1 (make-thread (lambda () ;; thread for cleaning up, give it five seconds
-			      (let ((run-ids (hash-table-keys *db-local-sync*)))
-				(if (and (not (null? run-ids))
-					 (or (common:legacy-sync-recommended)
-					     (configf:lookup *configdat* "setup" "megatest-db")))
-				    (if no-hurry (db:multi-db-sync run-ids 'new2old))))
+			;; (let ((run-ids (hash-table-keys *db-local-sync*)))
+			;; 	(if (and (not (null? run-ids))
+			;; 		 (or (common:legacy-sync-recommended)
+			;; 		     (configf:lookup *configdat* "setup" "megatest-db")))
+			;; 	    (if no-hurry
+			;; 		(db:multi-db-sync run-ids 'new2old))
+			;; 	    ))
 			      (if *dbstruct-db* (db:close-all *dbstruct-db*))
 			      (if *inmemdb*     (db:close-all *inmemdb*))
 			      (if (and *megatest-db*
 				       (sqlite3:database? *megatest-db*))
 				  (begin