@@ -224,11 +224,11 @@
   (set! *http-requests-in-progress* (- *http-requests-in-progress* 1))
   (let loop ((etime (+ (current-seconds) 5))) ;; give up in five seconds
     (if (> *http-requests-in-progress* 0)
 	(if (> etime (current-seconds))
 	    (begin
-	      (thread-sleep! 0.05)
+	      (thread-sleep! 0.052)
 	      (loop etime))
 	    (debug:print-error 0 *default-log-port* "requests still in progress after 5 seconds of waiting. I'm going to pass on cleaning up http connections"))
 	(close-idle-connections!)))
   (set! *http-connections-next-cleanup* (+ (current-seconds) 10))
   (mutex-unlock! *http-mutex*))
@@ -612,11 +612,11 @@
            (th3 (make-thread (lambda ()
                                (debug:print-info 0 *default-log-port* "Server monitor thread started")
                                (http-transport:keep-running)
                                "Keep running"))))
       (thread-start! th2)
-      (thread-sleep! 0.25) ;; give the server time to settle before starting the keep-running monitor.
+      (thread-sleep! 0.252) ;; give the server time to settle before starting the keep-running monitor.
       (thread-start! th3)
       (set! *didsomething* #t)
       (thread-join! th2)
       (exit))))