diff --git a/collects/web-server/private/response.ss b/collects/web-server/private/response.ss
index bf9bede2e6..9dc8d5cfec 100644
--- a/collects/web-server/private/response.ss
+++ b/collects/web-server/private/response.ss
@@ -212,7 +212,8 @@
           (lambda (i-port)
             (define _ (file-position i-port start))
             (define i-port/end (make-limited-input-port i-port end #t))
-            (copy-port i-port/end (connection-o-port conn)))))))
+            (copy-port i-port/end (connection-o-port conn))
+            (close-input-port i-port/end))))))
   
   (define ext:output-file
     (ext:wrap output-file))