diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 9e8c58b1cd4579b9e5fcfa2a610cb4f2a6c0b4ac..51f158e5c21eaeeb07573deca7e2ea092c9f1361 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -1249,6 +1249,9 @@ The return value of this function is the retrieval buffer."
 	 (nsm-noninteractive (or url-request-noninteractive
 				 (and (boundp 'url-http-noninteractive)
 				      url-http-noninteractive)))
+         ;; The following binding is needed in url-open-stream, which
+         ;; is called from url-http-find-free-connection.
+         (url-current-object url)
          (connection (url-http-find-free-connection (url-host url)
                                                     (url-port url)
                                                     gateway-method))