Index: launchmod.scm
==================================================================
--- launchmod.scm
+++ launchmod.scm
@@ -2292,12 +2292,12 @@
       (thread-sleep! 5) ;; add control / setting for this
       (if am-server
 	  (if (not  *dbstruct-db*) ;; skip syncing until db is setup
 	      (loop)
 	      (begin
-		(debug:print-info 0 *default-log-port* "syncing "apath" "dbfile" at "(current-seconds))
-		(db:sync-inmem->disk *dbstruct-db* apath dbfile)
+		;; (debug:print-info 0 *default-log-port* "syncing "apath" "dbfile" at "(current-seconds))
+		;; (db:sync-inmem->disk *dbstruct-db* apath dbfile)
 		(loop)))))))
   
 ;; 
 ;; (let ((dbstruct 
 ;; 	    (debug:print-info 13 *default-log-port* "after db:setup with dbstruct=" dbstruct)

Index: rmtmod.scm
==================================================================
--- rmtmod.scm
+++ rmtmod.scm
@@ -2061,11 +2061,11 @@
 	(http-transport:wait-for-server pkts-dir dbname server-key)
 	(http-transport:wait-for-stable-interface))
     ;; this is our forever loop
     (let* ((iface             (servdat-host *server-info*))
 	   (port              (servdat-port *server-info*)))
-      (let loop ((count         0)
+      (let loop ((count          0)
 		 (bad-sync-count 0)
 		 (start-time     (current-milliseconds)))
 	
 	(if (and (not is-main)
 		 (common:low-noise-print 60 "servdat-status"))
@@ -2090,20 +2090,28 @@
 			  (exit)))))
 	      (debug:print 0 *default-log-port*
 			   "SERVER: running, db "dbname" opened, megatest version: "
 			   (common:get-full-version))
 	      ;; start the watchdog
-	      (if watchdog
+
+	      ;; is this really needed?
+	      
+	      #;(if watchdog
 		  (if (not (member (thread-state watchdog)
 				   '(ready running blocked
 					   sleeping dead)))
 		      (begin
 			(debug:print-info 0 *default-log-port* "Starting watchdog thread (in state "(thread-state watchdog)")")
 			(thread-start! watchdog))
 		      (debug:print-info 0 *default-log-port* "Not starting watchdog thread (in state "(thread-state watchdog)")"))
 		  (debug:print 0 *default-log-port* "ERROR: *watchdog* not setup, cannot start it."))
-	      #;(loop (+ count 1) bad-sync-count start-time)))
+	      #;(loop (+ count 1) bad-sync-count start-time)
+	      ))
+
+	(debug:print-info 0 *default-log-port* "syncing "*toppath*" "dbname" at "(current-seconds))
+	(db:sync-inmem->disk *dbstruct-db* *toppath* dbname)
+
 	(mutex-unlock! *heartbeat-mutex*)
 	
 	;; when things go wrong we don't want to be doing the various
 	;; queries too often so we strive to run this stuff only every
 	;; four seconds or so.