@@ -687,12 +687,12 @@
 
 ;; get runs changed since last sync
 ;; (define (tasks:sync-test-data dbh cached-info area-info)
 ;;   (let* ((
 
-(define (tasks:sync-to-postgres configdat)
-  (let* ((dbh         (pgdb:open configdat))
+(define (tasks:sync-to-postgres configdat dest)
+  (let* ((dbh         (pgdb:open configdat dbname: dest))
 	 (area-info   (pgdb:get-area-by-path dbh *toppath*))
 	 (cached-info (make-hash-table))
 	 (start       (current-seconds)))
     (for-each (lambda (dtype)
 		(hash-table-set! cached-info dtype (make-hash-table)))
@@ -711,10 +711,10 @@
 	      (begin
 		(print "Syncing " (length test-ids) " changed tests")
 		(tasks:sync-tests-data dbh cached-info test-ids)))
 	  (pgdb:write-sync-time dbh area-info start))
 	(if (tasks:set-area dbh configdat)
-	    (tasks:sync-to-postgres configdat)
+	    (tasks:sync-to-postgres configdat dest)
 	    (begin
 	      (debug:print 0 *default-log-port* "ERROR: unable to create an area record")
 	      #f)))))