--- a/HierarchicalItem.st	Tue Sep 12 18:26:43 2006 +0200
+++ b/HierarchicalItem.st	Wed Sep 13 11:36:33 2006 +0200
@@ -1648,12 +1648,16 @@
     ^ self detect:aOneArgBlock ifNone:[self errorNotFound]
 !
 
-detect:anOneArgBlock ifNone:anExceptionBlock
+detect:aOneArgBlock ifNone:exceptionBlock
     "find the first child, for which evaluation of the block returns
      true; if none does so, return the evaluation of anExceptionBlock"
 
-    self do:[:el| (anOneArgBlock value:el) ifTrue:[^ el] ].
-    ^ anExceptionBlock value
+    self do:[:el| 
+        (aOneArgBlock value:el) ifTrue:[^ el] 
+    ].
+    ^ exceptionBlock value
+
+    "Modified: / 13-09-2006 / 11:17:53 / cg"
 !
 
 detectLast:aOneArgBlock
@@ -1905,5 +1909,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.77 2006-07-03 10:31:11 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.78 2006-09-13 09:36:33 cg Exp $'
 ! !