3 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index b3cde6acb..8a56ce931 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,6 +1,8 @@
 - devices detection:
   o fix reading USB details (#55690)
   o fix SCSI driver module name
+- partitioning wizard:
+  o unmount swap too when unmounting all partitions
 
 Version 12.78 - 18 November 2009
 
diff --git a/perl-install/fs/mount.pm b/perl-install/fs/mount.pm
index f7bea2ae4..59e3e8bbb 100644
--- a/perl-install/fs/mount.pm
+++ b/perl-install/fs/mount.pm
@@ -222,7 +222,7 @@ sub umount_all {
     log::l("unmounting all filesystems");
 
     foreach (sort { $b->{mntpoint} cmp $a->{mntpoint} } 
-	       grep { $_->{mntpoint} && !$_->{real_mntpoint} } @$fstab) {
+	       grep { $_->{mntpoint} && !$_->{real_mntpoint} || isSwap($_) } @$fstab) {
 	umount_part($_);
     }
 }
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index edd946eeb..525115f87 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -5,6 +5,8 @@
 - devices detection:
   o fix reading USB details (#55690)
   o fix SCSI driver module name
+- partitioning wizard:
+  o unmount swap too when unmounting all partitions
 
 Version 12.77 - 30 October 2009