diff --git a/lisp/url/url-parse.el b/lisp/url/url-parse.el
index 6e51b35f5a1..2800caf3043 100644
--- a/lisp/url/url-parse.el
+++ b/lisp/url/url-parse.el
@@ -224,7 +224,7 @@ parses to
 				 fragment nil full))))))
 
 (defmacro url-bit-for-url (method lookfor url)
-  `(let* ((urlobj (url-generic-parse-url url))
+  `(let* ((urlobj (url-generic-parse-url ,url))
           (bit (funcall ,method urlobj))
           (methods (list 'url-recreate-url
                          'url-host))