diff --git a/build-aux/list-packages.scm b/build-aux/list-packages.scm
index 6cf2c53491..d832374a9c 100755
--- a/build-aux/list-packages.scm
+++ b/build-aux/list-packages.scm
@@ -106,7 +106,8 @@ (define (patch-url patch)
        (basename patch)))
 
     (define (snippet-link snippet)
-      (let ((loc (package-field-location package 'source)))
+      (let ((loc (or (package-field-location package 'source)
+                     (package-location package))))
         `(a (@ (href ,(location-url loc))
                (title "Link to patch snippet"))
             "snippet")))