--- a/SettingsDialog.st	Fri Jul 11 02:11:05 2014 +0200
+++ b/SettingsDialog.st	Fri Jul 11 02:25:24 2014 +0200
@@ -1391,7 +1391,8 @@
     window notNil ifTrue:[
         lbl := self rootItemLabel ? 'Settings Dialog'.
         item notNil ifTrue:[
-            itemLabel := (item label copyReplaceAll:(Character cr) with:(Character space)).
+            itemLabel := item label.
+            itemLabel := itemLabel copyReplaceAll:(Character cr) with:(Character space) ifNone:itemLabel.
             itemLabel ~= lbl ifTrue:[
                 lbl := lbl , ' [', itemLabel, ']'.
             ]
@@ -1904,11 +1905,11 @@
 !SettingsDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.119 2014-07-01 19:51:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.120 2014-07-11 00:25:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.119 2014-07-01 19:51:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.120 2014-07-11 00:25:24 cg Exp $'
 ! !