--- a/AbstractSettingsApplication.st	Tue May 11 22:45:10 2010 +0200
+++ b/AbstractSettingsApplication.st	Wed May 12 18:44:16 2010 +0200
@@ -401,18 +401,20 @@
 
 !AbstractSettingsApplication methodsFor:'accessing'!
 
-requestor:something
-    "set the value of the instance variable 'requestor' (automatically generated)"
-
-    requestor := something.
+requestor:anotherApplication
+    requestor := anotherApplication.
+
+    "Modified: / 12-05-2010 / 17:16:37 / cg"
 !
 
 settingsDialog
     ^ settingsDialog
 !
 
-settingsDialog:something
-    settingsDialog := something.
+settingsDialog:aSettingsDialog
+    settingsDialog := aSettingsDialog.
+
+    "Modified: / 12-05-2010 / 18:44:09 / cg"
 ! !
 
 !AbstractSettingsApplication methodsFor:'actions'!
@@ -563,9 +565,11 @@
 initialize
     super initialize.
     resources := self class classResources.
-    self initializeCurrentUserPreferences.
+    currentUserPrefs isNil ifTrue:[ self initializeCurrentUserPreferences ].
     settingsString := (UISpecification from:(self class windowSpec)) window label.
     "/ self readSettings.
+
+    "Modified: / 12-05-2010 / 17:27:44 / cg"
 !
 
 initializeCurrentUserPreferences
@@ -16146,9 +16150,9 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.358 2010-05-07 12:34:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.359 2010-05-12 16:44:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.358 2010-05-07 12:34:39 cg Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.359 2010-05-12 16:44:16 cg Exp $'
+! !