1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index e48cb64eb..8de921fea 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -342,8 +342,11 @@ sub get_autologin {
 sub set_autologin {
   my ($prefix, $user, $desktop) = @_;
 
-  output "$prefix/etc/sysconfig/desktop", uc($desktop), "\n" if $user;
-
+  if ($user) {
+      my %l = getVarsFromSh("$prefix/etc/sysconfig/desktop");
+      $l{DESKTOP} = uc($desktop);
+      setVarsInSh("$prefix/etc/sysconfig/desktop", %l);
+  }
   setVarsInSh("$prefix/etc/sysconfig/autologin",
 	      { USER => $user, AUTOLOGIN => bool2yesno($user), EXEC => "/usr/X11R6/bin/startx" });
   log::l("cat $prefix/etc/sysconfig/autologin: ", cat_("$prefix/etc/sysconfig/autologin"));