diff --git a/guix/http-client.scm b/guix/http-client.scm
index cc3acc9587749e513fb391d5f43796d0eec01e2e..0090783524e2d692943f6bba72337154ff04cf56 100644
--- a/guix/http-client.scm
+++ b/guix/http-client.scm
@@ -276,7 +276,12 @@ (define* (http-fetch uri #:key port (text? #f) (buffered? #t)
                               (code code)
                               (reason (response-reason-phrase resp)))
                              (&message
-                              (message "download failed"))))))))))
+                              (message
+                               (format
+                                #f
+                                (_ "~a: HTTP download failed: ~a (~s)")
+                                (uri->string uri) code
+                                (response-reason-phrase resp))))))))))))
 
 
 ;;;