--- a/HierarchicalItem.st	Wed Jun 05 15:24:09 2013 +0200
+++ b/HierarchicalItem.st	Thu Jun 06 14:11:48 2013 +0200
@@ -886,7 +886,9 @@
 !
 
 contains:aBlock
-    "return true if aBlock returns true for any of the receivers items"
+    "evaluate aOneArgBlock for each of the receiver's elements
+     Return true and skip remaining elements, if aBlock ever returns true, 
+     otherwise return false"
 
     self do:[:el | (aBlock value:el) ifTrue:[^ true] ].
     ^ false
@@ -1979,10 +1981,10 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.102 2013-04-18 09:07:32 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.103 2013-06-06 12:11:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.102 2013-04-18 09:07:32 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.103 2013-06-06 12:11:48 cg Exp $'
 ! !