diff --git a/guix/lint.scm b/guix/lint.scm
index 71ce931964..4a6abe4275 100644
--- a/guix/lint.scm
+++ b/guix/lint.scm
@@ -139,7 +139,7 @@
    message-text
    message-data
    (or location
-       (package-field-location package field)
+       (and field (package-field-location package field))
        (package-location package))))
 
 (define-syntax make-warning