1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/install/steps.pm b/perl-install/install/steps.pm
index 5dd31bf62..285feb8a9 100644
--- a/perl-install/install/steps.pm
+++ b/perl-install/install/steps.pm
@@ -126,7 +126,13 @@ sub selectLanguage {
     $o->charsetChanged;
 
     addToBeDone {
-	lang::write_langs($o->{locale}{langs});
+        if ($o->{isUpgrade}) {
+            #- preserve existing locale settings (mga#24671)
+            $o->{locale} = lang::read();
+            $o->{locale}{langs}{$o->{locale}{lang}} = 1;
+        } else {
+            lang::write_langs($o->{locale}{langs});
+        }
     } 'formatPartitions';
     addToBeDone {
 	lang::write_and_install($o->{locale}, $o->do_pkgs);