--- a/AbstractSettingsApplication.st	Wed Nov 10 13:19:28 2004 +0100
+++ b/AbstractSettingsApplication.st	Wed Nov 10 18:56:22 2004 +0100
@@ -366,9 +366,13 @@
 initialize
     super initialize.
     resources := self class classResources.
-    currentUserPrefs := UserPreferences current.
+    self initializeCurrentUserPreferences.
     settingsString := (UISpecification from:(self class windowSpec)) window label.
     "/ self readSettings.
+!
+
+initializeCurrentUserPreferences
+    currentUserPrefs := UserPreferences current.
 ! !
 
 !AbstractSettingsApplication methodsFor:'menu'!
@@ -420,7 +424,7 @@
 
 saveSettings
     self basicSaveSettings.
-    currentUserPrefs := UserPreferences current.
+
     self modifiedChannel value:false.
 ! !
 
@@ -11274,5 +11278,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.185 2004-10-19 18:42:49 cg Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.186 2004-11-10 17:56:22 cg Exp $'
+! !