diff --git a/gnu/home/services/symlink-manager.scm b/gnu/home/services/symlink-manager.scm
index 25470209d1..a6344c808f 100644
--- a/gnu/home/services/symlink-manager.scm
+++ b/gnu/home/services/symlink-manager.scm
@@ -125,7 +125,7 @@ appear only after all nested items already listed."
              (display
               (G_
                "Cleaning up symlinks from previous home-environment.\n\n"))
-             (map
+             (for-each
               (match-lambda
                 (('dir . ".")
                  (display (G_ "Cleanup finished.\n\n")))
@@ -168,7 +168,7 @@ appear only after all nested items already listed."
              (readlink (string-append new-files-path "/" path)))
 
            (let ((to-create ((file-tree-traverse #t) new-tree)))
-             (map
+             (for-each
               (match-lambda
                 (('dir . ".")
                  (display