--- a/HierarchicalItem.st	Tue Jun 22 11:05:37 2004 +0200
+++ b/HierarchicalItem.st	Wed Jun 23 09:49:33 2004 +0200
@@ -257,7 +257,7 @@
 !
 
 enforcedExpand
-    "expand children - even if there are not children,
+    "expand children - even if there are no children,
      the item is initially expanded (but this might be undone later,
      when we know that no children are there"
 
@@ -281,7 +281,7 @@
     "/ without checking whether the node is expanded (happens already) !!
 
     isExpanded ifTrue:[ ^ self ].
-    (enforced or:[self canExpand]) ifFalse:[ ^ self ].
+    (enforced not and:[self canExpand not]) ifTrue:[ ^ self ].
 
     self criticalDo:[
         (index := self listIndex) notNil ifTrue:[
@@ -1896,5 +1896,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.65 2004-06-07 17:52:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.66 2004-06-23 07:49:33 martin Exp $'
 ! !