--- a/HierarchicalItem.st	Tue Mar 04 23:20:58 2014 +0100
+++ b/HierarchicalItem.st	Wed Mar 05 14:19:42 2014 +0100
@@ -1722,14 +1722,14 @@
     ^ self detect:aOneArgBlock ifNone:[self errorNotFound]
 !
 
-detect:aOneArgBlock ifNone:exceptionBlock
+detect:aOneArgBlock ifNone:exceptionValue
     "find the first child, for which evaluation of the block returns
-     true; if none does so, return the evaluation of anExceptionBlock"
+     true; if none does so, return the value of anExceptionValue"
 
     self do:[:el| 
         (aOneArgBlock value:el) ifTrue:[^ el] 
     ].
-    ^ exceptionBlock value
+    ^ exceptionValue value
 !
 
 detectLast:aOneArgBlock
@@ -1739,12 +1739,12 @@
     ^ self detectLast:aOneArgBlock ifNone:[self errorNotFound]
 !
 
-detectLast:anOneArgBlock ifNone:anExceptionBlock
+detectLast:aOneArgBlock ifNone:anExceptionValue
     "find the last child, for which evaluation of the block returns
-     true; if none does so, return the evaluation of anExceptionBlock"
+     true; if none does so, return the value of anExceptionValue"
 
-    self reverseDo:[:el| (anOneArgBlock value:el) ifTrue:[^ el] ].
-    ^ anExceptionBlock value
+    self reverseDo:[:el| (aOneArgBlock value:el) ifTrue:[^ el] ].
+    ^ anExceptionValue value
 !
 
 findFirst:aOneArgBlock
@@ -1981,10 +1981,10 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.103 2013-06-06 12:11:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.104 2014-03-05 13:19:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.103 2013-06-06 12:11:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.104 2014-03-05 13:19:42 cg Exp $'
 ! !