--- a/AbstractSettingsApplication.st	Tue Sep 23 11:03:30 2003 +0200
+++ b/AbstractSettingsApplication.st	Tue Sep 23 11:03:46 2003 +0200
@@ -3945,7 +3945,7 @@
 basicSaveSettings
 
     |fontPref idx language oldLanguage territory enc 
-     answer matchingFonts l screen newLanguage switch|
+     answer matchingFonts l screen newLanguage switch dialog|
 
     newLanguage := self languageHolder value.
     self withWaitCursorDo:[
@@ -4022,8 +4022,8 @@
         ].
     ].
     switch ifTrue:[       
-        self settingsDialog notNil ifTrue:[
-            self settingsDialog reopenLauncher.
+        (dialog := self settingsDialog) notNil ifTrue:[
+            dialog reopenLauncher.
         ] ifFalse:[
             NewLauncher current reopenLauncher.
         ].
@@ -10923,5 +10923,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.109 2003-09-16 20:34:23 cg Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.110 2003-09-23 09:03:46 cg Exp $'
+! !