@@ -328,11 +328,12 @@
 	(let* ((fmodtime (file-modification-time start-flag))
 	       (reftime  (+ 3 (random 5)))
 	       (delta    (- (current-seconds) fmodtime)))
 	  (if (> delta reftime) ;; good enough
 	      (begin
-		(debug:print-info 0 *default-log-port* "Ready to start server, last start: " fmodtime ", delta: " delta)
+		(debug:print-info 0 *default-log-port* "Ready to start server, last start: "
+				  fmodtime ", delta: " delta ", reftime: " reftime)
 		(system (conc "touch " start-flag))) ;; lazy but safe
 	      (begin
 		(thread-sleep! 5)
 		(server:wait-for-server-start-last-flag areapath))))
 	(system (conc "touch " start-flag)))))