diff --git a/collects/net/url.rkt b/collects/net/url.rkt
index 08d642f5cf..bda9cf9891 100644
--- a/collects/net/url.rkt
+++ b/collects/net/url.rkt
@@ -254,6 +254,7 @@
       (regexp-match #rx"^HTTP/[0-9]+[.][0-9]+ 3[0-9][0-9]" status))
     (cond
       [(and redirection-status-line? new-url (not (zero? redirections))) 
+       (close-input-port ip)
        (redirection-loop (- redirections 1) new-url)]
       [else
        (define-values (in-pipe out-pipe) (make-pipe))