diff --git a/guix/profiles.scm b/guix/profiles.scm
index bf86624e43..a2c73fd4cd 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -393,7 +393,7 @@ (define (info-file? file)
         (define (info-files top)
           (let ((infodir (string-append top "/share/info")))
             (map (cut string-append infodir "/" <>)
-                 (scandir infodir info-file?))))
+                 (or (scandir infodir info-file?) '()))))
 
         (define (install-info info)
           (zero?