--- a/AbstractSettingsApplication.st	Sat Jul 13 22:39:12 2013 +0200
+++ b/AbstractSettingsApplication.st	Sat Jul 13 22:40:13 2013 +0200
@@ -5362,8 +5362,7 @@
         ] ifFalse:[
             HistoryManager deactivate
         ].
-        nm := (self userNameInHistoryHolder value ? '') withoutSeparators.
-        nm isEmpty ifTrue:[ nm := nil ].
+        nm := (self userNameInHistoryHolder value ? '') withoutSeparators asNilIfEmpty.
         UserPreferences current historyManagerSignature:nm.
     ].
     Smalltalk loadBinaries:self loadBinaries value.
@@ -18022,10 +18021,10 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.480 2013-07-09 19:38:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.481 2013-07-13 20:40:13 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.480 2013-07-09 19:38:30 cg Exp $'
-! !
-
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.481 2013-07-13 20:40:13 cg Exp $'
+! !
+