diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm index 7f7fafd5696..dcb7f3b61a5 100644 --- a/guix/gnu-maintenance.scm +++ b/guix/gnu-maintenance.scm @@ -801,7 +801,9 @@ list available from %GNU-FILE-LIST-URI over HTTP(S)." (find (cut version-prefix? version <>) (force versions))) version - (first (force versions)))) + (match (force versions) + ((? null?) #f) + (lst (first lst))))) ;; Find tarballs matching this version. (tarballs (filter (lambda (file) (string=? version (tarball->version file)))