diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index e3b06977ee..83dde9a1a1 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -81,10 +81,10 @@ (define* (emit-warning package message #:optional field)
   ;; provided MESSAGE.
   (let ((loc (or (package-field-location package field)
                  (package-location package))))
-    (warning (_ "~a: ~a: ~a~%")
-             (location->string loc)
-             (package-full-name package)
-             message)))
+    (format (guix-warning-port) (_ "~a: ~a: ~a~%")
+            (location->string loc)
+            (package-full-name package)
+            message)))
 
 
 ;;;
diff --git a/tests/lint.scm b/tests/lint.scm
index f6dae47ca6..56558c904f 100644
--- a/tests/lint.scm
+++ b/tests/lint.scm
@@ -39,10 +39,10 @@ (define-syntax-rule (dummy-package name* extra-fields ...)
            (home-page #f) (license #f) ))
 
 (define (call-with-warnings thunk)
-       (let ((port (open-output-string)))
-         (parameterize ((guix-warning-port port))
-           (thunk))
-         (get-output-string port)))
+  (let ((port (open-output-string)))
+    (parameterize ((guix-warning-port port))
+      (thunk))
+    (get-output-string port)))
 
 (test-assert "synopsis: ends with a period"
   (->bool