@@ -954,7 +954,8 @@ files for the fonts of the @var{manifest} entries."
   (define build
     #~(begin
         (use-modules (guix build utils)
-                     (srfi srfi-1))
+                     (srfi srfi-1)
+                     (srfi srfi-26))
 
         (define entries
           (filter-map (lambda (directory)
@@ -977,7 +978,7 @@ files for the fonts of the @var{manifest} entries."
             (string-drop manpage-path (+ index (string-length "/share/man/")))))
 
         (define (populate-manpages-collection-dir entries)
-          (let ((manpages (append-map find-files entries)))
+          (let ((manpages (append-map (cut find-files <> #:stat stat) entries)))
             (for-each (lambda (manpage)
                         (let* ((dest-file (string-append
                                            manpages-collection-dir "/"
@@ -1012,7 +1013,8 @@ files for the fonts of the @var{manifest} entries."
                         "-C" "man_db.conf"))))
 
   (gexp->derivation "manual-database" build
-                    #:modules '((guix build utils))
+                    #:modules '((guix build utils)
+                                (srfi srfi-26))
                     #:local-build? #t))
 
 (define %default-profile-hooks