1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/standalone/bootloader-config b/perl-install/standalone/bootloader-config
index 1595d30f9..187ca3eed 100755
--- a/perl-install/standalone/bootloader-config
+++ b/perl-install/standalone/bootloader-config
@@ -98,6 +98,12 @@ sub remove_kernel() {
 	return;
     }
 
+    remove_kernel_generic() if bootloader::main_method($bootloader->{method}) ne 'grub2';
+
+    modify_bootloader();
+}
+
+sub remove_kernel_generic() {
     my %proposed_labels;
     my @new_entries;
 
@@ -132,15 +138,12 @@ sub remove_kernel() {
 	my ($kernel_str, $v) = @$_;
 	bootloader::add_kernel($bootloader, $kernel_str, $v);
     }
-
-    modify_bootloader();
 }    
 
 
 #-###############################################################################
 sub add_kernel() {
     configure_ide_controller();
-    bootloader::create_link_source();
 
     my $kernel_str = bootloader::vmlinuz2kernel_str($image) or die "bad kernel name $image\n";