Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -410,11 +410,13 @@
 	     (run-delay    (+ (case call-num
 				((0)    0)
 				((1)   20)
 				((2)  300)
 				(else 600))
-			      (random 5)))   ;; add a small random number just in case a lot of jobs hit the work hosts simultaneously
+			      ;(random 5)
+                              0))   ;; add a small random number just in case a lot of jobs hit the work hosts simultaneously
+
 	     (lock-file    (conc areapath "/logs/server-start.lock")))
 	(if	(> (- (current-seconds) when-run) run-delay)
 		(let* ((start-flag (conc areapath "/logs/server-start-last")))
 		  (common:simple-file-lock-and-wait lock-file expire-time: 15)
                   (debug:print-info  0 *default-log-port* "server:kind-run: touching " start-flag)