Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -389,11 +389,11 @@
 
           ;; write start-flag file, wait 0.25s, then if previously the start-flag file was older than <idletime> seconds, and the new file still has the same server key as you just wrote, return #t.
 	  ;; the intention is to make sure nfs can read the file we just wrote, and make sure it was written by us, and not another process.
            (if (and old-enough
 		   (begin
-                     (debug:print-info 0 *default-log-port* "Writing " start-flag)
+                     (debug:print-info 2 *default-log-port* "Writing " start-flag)
 		     (with-output-to-file start-flag (lambda () (print server-key)))
 		     (thread-sleep! 0.25)
 		     (set! new-server-key (with-input-from-file start-flag (lambda () (read-line))))
 		     (equal? server-key new-server-key))
                 )
@@ -419,11 +419,11 @@
   (if (not (server:check-if-running areapath)) ;; why try if there is already a server running?
       (let* (
 	     (lock-file    (conc areapath "/logs/server-start.lock")))
 	(let* ((start-flag (conc areapath "/logs/server-start-last")))
 	  (common:simple-file-lock-and-wait lock-file expire-time: 25)
-	  (debug:print-info  0 *default-log-port* "server:kind-run: touching " start-flag)
+	  (debug:print-info  2 *default-log-port* "server:kind-run: touching " start-flag)
 	  (system (conc "touch " start-flag)) ;; lazy but safe
 	  (server:run areapath)
 	  (thread-sleep! 20) ;; don't release the lock for at least a few seconds. And allow time for the server startup to get to "SERVER STARTED".
 	  (common:simple-file-release-lock lock-file)))