--- a/HierarchicalItem.st	Fri Jan 12 18:38:01 2007 +0100
+++ b/HierarchicalItem.st	Fri Jan 12 18:40:14 2007 +0100
@@ -9,8 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
 "{ Package: 'stx:libwidg2' }"
 
 Object subclass:#HierarchicalItem
@@ -813,7 +811,7 @@
     children size > 1 ifFalse:[ ^ self ].
 
     model := self model.
-    model ifNil:[^ self].                       "/ no model
+    model isNil ifTrue:[^ self].                       "/ no model
 
     visStart := model identityIndexOf:self.
     visStart == 0 ifTrue:[
@@ -1910,5 +1908,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.79 2006-09-19 17:15:15 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.80 2007-01-12 17:40:14 cg Exp $'
 ! !