Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -328,11 +328,11 @@
 	     (lock-file    (conc areapath "/logs/server-start.lock")))
 	(if	(> (- (current-seconds) when-run) run-delay)
 		(begin
 		  (common:simple-file-lock-and-wait lock-file expire-time: 15)
 		  (server:run areapath)
-		  (thread-sleep! 5) ;; don't release the lock for at least a few seconds
+		  (thread-sleep! 2) ;; don't release the lock for at least a few seconds
 		  (common:simple-file-release-lock lock-file)))
 	(hash-table-set! *server-kind-run* areapath (list (+ call-num 1)(current-seconds))))))
 
 (define (server:start-and-wait areapath #!key (timeout 60))
   (let ((give-up-time (+ (current-seconds) timeout)))
@@ -594,11 +594,11 @@
             ) ;; end lambda
           ))
     do-a-sync))
 
 (define (server:writable-watchdog dbstruct)
-  (thread-sleep! 10) ;; delay for startup
+  (thread-sleep! 1) ;; delay for startup
   (let* ((do-a-sync  (server:get-bruteforce-syncer dbstruct))
          (final-sync (server:get-bruteforce-syncer dbstruct fork-to-background: #t persist-until-sync: #t)))
     (when (and (not (args:get-arg "-sync-to-megatest.db")) ;; conditions under which we do not run the sync
 	       (args:get-arg "-server"))