Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -937,11 +937,12 @@
                  ((equal? syncer "delta-sync")
                   (server:writable-watchdog-deltasync dbstruct))
                  (else
                   (debug:print-error 0 *default-log-port* "Unknown server/sync-method specified ("syncer") - valid values are brute-force-sync and delta-sync.")
                   (exit 1)))
-                (debug:print 1 *default-log-port* "INFO: ["(common:human-time)"] Syncer started (method="syncer")"))))
+                ;;(debug:print 1 *default-log-port* "INFO: ["(common:human-time)"] Syncer started (method="syncer")")
+                )))
 	    (debug:print-info 13 *default-log-port* "watchdog done."))
 	  (debug:print-info 13 *default-log-port* "no need for watchdog on non-homehost"))))
 
 
 (define (std-exit-procedure)

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -230,17 +230,17 @@
            (let ((db      (sqlite3:open-database fname)))
              (sqlite3:set-busy-handler! db (make-busy-timeout 136000))
              (sqlite3:execute db "PRAGMA synchronous = 0;")
              (if (and (configf:lookup *configdat* "setup" "tmp_mode") (string-match "^/tmp/.*" fname))
                  (begin
-                   (print "DEBUG: Setting tmp_mode for " fname) 
+                   ;;(print "DEBUG: Setting tmp_mode for " fname) 
                    (sqlite3:execute db (configf:lookup *configdat* "setup" "tmp_mode"))
                    )
                  )  
              (if (and (configf:lookup *configdat* "setup" "nfs_mode") (not (string-match "^/tmp/.*" fname)))
                  (begin
-                   (print "DEBUG: Setting nfs_mode for " fname)
+                   ;;(print "DEBUG: Setting nfs_mode for " fname)
                    (sqlite3:execute db (configf:lookup *configdat* "setup" "nfs_mode"))
                    )
                  )  
              (if (and (not (or (configf:lookup *configdat* "setup" "tmp_mode") (configf:lookup *configdat* "setup" "nfs_mode")))  
                       (configf:lookup *configdat* "setup" "use-wal")