@@ -483,11 +483,16 @@ ) (if (and no-sync-db (common:low-noise-print 5 "sync-all")) ;; cheesy way to reduce frequency of running sync :) (begin (debug:print 0 *default-log-port* "keep-running calling db:all-db-sync at " (time->string (seconds->local-time) "%H:%M:%S")) - (db:all-db-sync *dbstruct-dbs*) + + ;; This is tougher than it seems - have to deal with multiple dbs + ;; (db:process-transaction-queue *dbstruct-dbs*) + + (db:all-db-sync *dbstruct-dbs*) + ;; (db:do-sync no-sync-db) ;; (db:run-lock-and-sync *no-sync-db*) ) ) )