Index: dbmod.scm
==================================================================
--- dbmod.scm
+++ dbmod.scm
@@ -238,11 +238,11 @@
     dbstruct))
 
 ;;    (if (eq? syncdir 'todisk) ;; sync to disk normally, sync from in dashboard
 ;;        (dbmod:sync-tables tables last-update inmem db)
 ;;        (dbmod:sync-tables tables last-update db inmem))))
-
+;;
 ;; direction: 'fromdest 'todest
 ;;
 (define (dbmod:sync-gasket tables last-update inmem dbh dbfname direction keys)
   (assert (sqlite3:database? inmem) "FATAL: sync-gasket: inmem is not a db")
   (assert (sqlite3:database? inmem) "FATAL: sync-gasket: dbh is not a db")
@@ -253,13 +253,12 @@
      (dbmod:attach-sync tables inmem dbfname direction))
     ((newsync)
      (dbmod:new-sync tables inmem dbh dbfname direction))
     (else
      (case direction
-       ((todisk)
-	(dbmod:sync-tables tables last-update keys inmem dbh)
-	)
+       ((todisk) ;; i.e. from the cache db to the mtrah db
+	(dbmod:sync-tables tables last-update keys inmem dbh))
        (else
 	(dbmod:sync-tables tables last-update keys dbh inmem))))))
 
 (define (dbmod:close-db dbstruct)
   ;; do final sync to disk file
@@ -800,11 +799,11 @@
 	      (debug:print-info 0 *default-log-port* "db-to-db-sync done with file-copy")
 	      #t)
 	    (let* ((tables (db:sync-all-tables-list keys))
 		   (sdb    (dbmod:safely-open-db src-db init-proc #t))
 		   (ddb    (dbmod:safely-open-db dest-db init-proc d-wr))
-		   (res    (dbmod:sync-gasket tables last-update sdb ddb dest-db 'todest keys)))
+		   (res    (dbmod:sync-gasket tables last-update sdb ddb dest-db 'todisk keys)))
 	      (sqlite3:finalize! sdb)
 	      (sqlite3:finalize! ddb)
 	      res)))
       #f))
 )