1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/partition_table/empty.pm b/perl-install/partition_table/empty.pm
index e5d3c5685..fb2d8ada3 100644
--- a/perl-install/partition_table/empty.pm
+++ b/perl-install/partition_table/empty.pm
@@ -1,7 +1,7 @@
 package partition_table::empty; # $Id$
 
 #- this is a mainly dummy partition table. If we find it's empty, we just call -
-#- zero_MBR which will take care of bless'ing us to the partition table type best
+#- ->clear which will take care of bless'ing us to the partition table type best
 #- suited
 
 
@@ -28,7 +28,7 @@ sub read_one {
     sysread $F, $tmp, 1024 or die "error reading magic number on disk $hd->{device}";
     $tmp eq substr($tmp, 0, 1) x 1024 or die "bad magic number on disk $hd->{device}";
 
-    partition_table::raw::zero_MBR($hd);
+    partition_table::raw::clear($hd);
 
     $hd->{primary}{raw}, $hd->{primary}{info};
 }