diff options
| -rw-r--r-- | gnu/installer/newt/partition.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm index 7f1fb4de15..2960adcf06 100644 --- a/gnu/installer/newt/partition.scm +++ b/gnu/installer/newt/partition.scm @@ -751,11 +751,12 @@ by pressing the Exit button.~%~%"))) (disk (mklabel device label))) (disk-commit disk) disk))) + (initial-partitions (disk-partitions disk)) (scheme (symbol-append method '- (run-scheme-page))) (user-partitions (append (auto-partition disk #:scheme scheme) (create-special-user-partitions - (disk-partitions disk))))) + initial-partitions)))) (run-disk-page (list disk) user-partitions #:guided? #t))) ((eq? method 'manual) |