diff --git a/guix/lint.scm b/guix/lint.scm
index 627016fae0..82861b8a27 100644
--- a/guix/lint.scm
+++ b/guix/lint.scm
@@ -679,7 +679,7 @@ (define (starts-with-package-name? file-name)
                   ((? string? patch)
                    (starts-with-package-name? (basename patch)))
                   ((? origin? patch)
-                   (starts-with-package-name? (origin-file-name patch)))
+                   (starts-with-package-name? (origin-actual-file-name patch)))
                   (_  #f))     ;must be some other file-like object
                 patches)
          '()