diff --git a/gnu/home/services/symlink-manager.scm b/gnu/home/services/symlink-manager.scm index 560e03a839..d7b22d7fba 100644 --- a/gnu/home/services/symlink-manager.scm +++ b/gnu/home/services/symlink-manager.scm @@ -106,7 +106,8 @@ (define backup (mkdir-p backup-directory) (format #t (G_ "Backing up ~a...") (target-file file)) (mkdir-p (dirname backup)) - (rename-file (target-file file) backup) + (copy-file (target-file file) backup) + (delete-file (target-file file)) (display (G_ " done\n"))) (define (cleanup-symlinks home-generation)