--- a/TreeItem.st	Mon Mar 06 09:46:03 2006 +0100
+++ b/TreeItem.st	Mon Mar 06 09:46:21 2006 +0100
@@ -715,13 +715,9 @@
 !
 
 hasChildrenWithSubChildren
-    "returns true if any child exists and has children too
-    "
-    self children do:[:aChild|
-        aChild hasChildren ifTrue:[^ true].
-    ].
-    ^ false
+    "returns true if any child exists and has children too"
 
+    self children contains:[:aChild| aChild hasChildren]
 !
 
 hasExpandedChildren
@@ -1035,7 +1031,7 @@
 !TreeItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TreeItem.st,v 1.45 2003-05-19 09:10:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TreeItem.st,v 1.46 2006-03-06 08:46:21 cg Exp $'
 ! !
 
 TreeItem initialize!