Index: tcp-transportmod.scm ================================================================== --- tcp-transportmod.scm +++ tcp-transportmod.scm @@ -428,11 +428,12 @@ (let* ((backoff-delay (max (* (- 26 tries-remaining) 0.1) 1.0))) (debug:print 0 *default-log-port* "WARNING: TCP overload, trying again in "backoff-delay"s.") (thread-sleep! backoff-delay) (tt:backoff-incr host port) (retry)) - (assert #f "FATAL: Too many retries in tt:send-receive-direct")) + ;; (assert #f "FATAL: Too many retries in tt:send-receive-direct") + ) (else #f)))) (exn () (full-err-print exn "Unhandled exception from client side.") #f))))