diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index 98ee4695015a88d66a831e1bcd7a62be317d8bf7..ee1c826d2e162eb6e92b570179d8df7591ef81ff 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -46,10 +46,9 @@ (define (emit-warnings warnings)
    (lambda (lint-warning)
      (let ((package (lint-warning-package lint-warning))
            (loc     (lint-warning-location lint-warning)))
-       (format (guix-warning-port) "~a: ~a@~a: ~a~%"
-               (location->string loc)
-               (package-name package) (package-version package)
-               (lint-warning-message lint-warning))))
+       (warning loc (G_ "~a@~a: ~a~%")
+                (package-name package) (package-version package)
+                (lint-warning-message lint-warning))))
    warnings))
 
 (define (run-checkers package checkers)