--- a/SettingsDialog.st	Thu Nov 20 14:42:43 2014 +0100
+++ b/SettingsDialog.st	Thu Nov 20 15:27:13 2014 +0100
@@ -1716,7 +1716,9 @@
 
 canCollapse
     "the rootItem is cannot be collapsed"
-    ^ self isRootItem not
+
+    "/ first check if we are expanded, if not answer false
+    ^ (isExpanded and:[self isRootItem not])
 !
 
 isCategory
@@ -1958,11 +1960,11 @@
 !SettingsDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.121 2014-10-23 11:12:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.122 2014-11-20 14:27:13 ca Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.121 2014-10-23 11:12:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.122 2014-11-20 14:27:13 ca Exp $'
 ! !