@@ -333,11 +333,11 @@
 	      (mutex-lock! *db-multi-sync-mutex*)
 	      (if (and (not (equal? legacy-sync "no"))
 		       (hash-table-ref/default *db-local-sync* run-id #f))
 		  ;; (if (> (- start-time last-write) 5) ;; every five seconds
 		  (begin ;; let ((sync-time (- (current-seconds) start-time)))
-		    (db:multi-db-sync (list run-id) 'new2old)
+		    (db:multi-db-sync (list run-id) *area-dat* 'new2old)
 		    (if (common:low-noise-print 30 "sync new to old")
 			(let ((sync-time (- (current-seconds) start-time)))
 			  (debug:print-info 0 "Sync of newdb to olddb for run-id " run-id " completed in " sync-time " seconds")))
 		    ;; (if (> sync-time 10) ;; took more than ten seconds, start a server for this run
 		    ;;     (begin
@@ -1417,10 +1417,11 @@
 	    (exit 1)))
       ;; keep this one local
       ;; (open-run-close db:clean-up #f)
       (db:multi-db-sync 
        #f ;; do all run-ids
+       *area-dat*
        ;; 'new2old
        'killservers
        'dejunk
        ;; 'adj-testids
        ;; 'old2new
@@ -1529,10 +1530,11 @@
 
 (if (args:get-arg "-import-megatest.db")
     (begin
       (db:multi-db-sync 
        #f ;; do all run-ids
+       *area-dat*
        'killservers
        'dejunk
        'adj-testids
        'old2new
        ;; 'new2old
@@ -1541,10 +1543,11 @@
 
 (if (args:get-arg "-sync-to-megatest.db")
     (begin
       (db:multi-db-sync 
        #f ;; do all run-ids
+       *area-dat*
        'new2old
        )
       (set! *didsomething* #t)))
 
 ;;======================================================================