diff --git a/guix/build/download.scm b/guix/build/download.scm
index 16afb1dce1..e8d61e0d92 100644
--- a/guix/build/download.scm
+++ b/guix/build/download.scm
@@ -211,10 +211,12 @@ (define addresses
 (unless (or (> (string->number (major-version)) 2)
             (> (string->number (minor-version)) 0)
             (> (string->number (micro-version)) 11))
-  (let ((declare-relative-uri-header!
-         (module-ref (resolve-module '(web http))
-                     'declare-relative-uri-header!)))
-    (declare-relative-uri-header! "Location")))
+  (let ((var (module-variable (resolve-module '(web http))
+                              'declare-relative-uri-header!)))
+    ;; If 'declare-relative-uri-header!' doesn't exist, forget it.
+    (when (and var (variable-bound? var))
+      (let ((declare-relative-uri-header! (variable-ref var)))
+        (declare-relative-uri-header! "Location")))))
 
 (define (resolve-uri-reference ref base)
   "Resolve the URI reference REF, interpreted relative to the BASE URI, into a