Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -324,11 +324,11 @@
 ;;
 (define (server:wait-for-server-start-last-flag areapath)
   (let* ((start-flag (conc areapath "/logs/server-start-last")))
     (if (file-exists? start-flag)
 	(let* ((fmodtime (file-modification-time start-flag))
-	       (reftime  (+ 2 (random 3)))
+	       (reftime  3) ;; (+ 2 (random 3)))
 	       (delta    (- (current-seconds) fmodtime))
 	       (all-go   (> delta reftime)))
 	  (if all-go
 	      #t ;; (system (conc "touch " start-flag)) ;; lazy but safe
 	      (begin