diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm
index 7103fdaf20..3c66906793 100644
--- a/guix/scripts/environment.scm
+++ b/guix/scripts/environment.scm
@@ -989,9 +989,8 @@ otherwise, return MAPPINGS."
              (let ((target (file-system-mapping-target mapping)))
                (if (string-prefix? home target)
                    (file-system-mapping
-                    (source    (file-system-mapping-source mapping))
-                    (target    (override-user-dir user home target))
-                    (writable? (file-system-mapping-writable? mapping)))
+                    (inherit mapping)
+                    (target (override-user-dir user home target)))
                    mapping)))
            mappings)))