--- a/HierarchicalItem.st	Mon Jan 26 11:12:45 2015 +0100
+++ b/HierarchicalItem.st	Mon Jan 26 15:47:35 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libwidg2' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#HierarchicalItem
 	instanceVariableNames:'parent children isExpanded height width'
 	classVariableNames:''
@@ -302,8 +304,8 @@
 
     (parent notNil and:[parent isHierarchicalItem]) ifTrue:[
         self criticalDo:[
+            parent makeVisible.
             parent expand.
-            parent makeVisible
         ]
     ].
 !
@@ -1981,10 +1983,10 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.106 2014-12-23 15:33:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.107 2015-01-26 14:47:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.106 2014-12-23 15:33:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.107 2015-01-26 14:47:35 cg Exp $'
 ! !