diff --git a/collects/web-server/response.ss b/collects/web-server/response.ss index 39eaffea88..1e07e508ad 100644 --- a/collects/web-server/response.ss +++ b/collects/web-server/response.ss @@ -247,6 +247,8 @@ (file-or-directory-modify-seconds file-path) mime-type) (when (eq? method 'get) + ; Give it one second per byte. + (adjust-connection-timeout! conn (file-size file-path)) (call-with-input-file file-path (lambda (i-port) (copy-port i-port (connection-o-port conn))))))