diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index 0f315a9352..665adcfb8d 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -758,9 +758,10 @@ descriptions maintained upstream."
   "Emit a warning if PACKAGE's source is an autogenerated tarball."
   (define (check-source-uri uri)
     (when (and (string=? (uri-host (string->uri uri)) "github.com")
-               (string=? (third (split-and-decode-uri-path
-                                   (uri-path (string->uri uri))))
-                     "archive"))
+               (match (split-and-decode-uri-path
+                                   (uri-path (string->uri uri)))
+                      ((_ _ "archive" _ ...) #t)
+                      (_ #f)))
       (emit-warning package
                     (G_ "the source URI should not be an autogenerated tarball")
                     'source)))