@@ -429,11 +429,11 @@
     (let loop ((count 0))
       ;; Use this opportunity to sync the inmemdb to db
       (let ((start-time (current-milliseconds))
 	    (sync-time  #f)
 	    (rem-time   #f))
-	(if *inmemdb* (db:sync-touched *inmemdb*))
+	(if *inmemdb* (db:sync-touched *inmemdb* force-sync: #t))
 	(set! sync-time  (- (current-milliseconds) start-time))
 	(set! rem-time (quotient (- 4000 sync-time) 1000))
 	(debug:print 0 "SYNC: time= " sync-time ", rem-time=" rem-time)
 	(if (and (<= rem-time 4)
 		 (> rem-time 0))
@@ -478,11 +478,11 @@
 	    (loop 0))
 	  (begin
 	    (debug:print-info 0 "Starting to shutdown the server.")
 	    ;; need to delete only *my* server entry (future use)
 	    (set! *time-to-exit* #t)
-	    (if *inmemdb* (db:sync-touched *inmemdb*))
+	    (if *inmemdb* (db:sync-touched *inmemdb* force-sync: #t))
 	    (open-run-close tasks:server-deregister-self tasks:open-db (get-host-name))
 	    (thread-sleep! 1)
 	    (debug:print-info 0 "Max cached queries was    " *max-cache-size*)
 	    (debug:print-info 0 "Number of cached writes   " *number-of-writes*)
 	    (debug:print-info 0 "Average cached write time "