diff --git a/guix/http-client.scm b/guix/http-client.scm
index e8a2a23fc50369ee74a83daf7600d93a40d162bb..3b34d4ffba013392ea7af03d3bd846289a6f8ab1 100644
--- a/guix/http-client.scm
+++ b/guix/http-client.scm
@@ -114,7 +114,7 @@ (define* (http-fetch uri #:key port (text? #f) (buffered? #t)
             308)                                  ; permanent redirection
            (let ((uri (resolve-uri-reference (response-location resp) uri)))
              (close-port port)
-             (format #t (G_ "following redirection to `~a'...~%")
+             (format (current-error-port) (G_ "following redirection to `~a'...~%")
                      (uri->string uri))
              (loop uri)))
           (else