--- a/OrderedDictionary.st	Wed Mar 05 14:14:02 2014 +0100
+++ b/OrderedDictionary.st	Wed Mar 05 14:19:29 2014 +0100
@@ -543,19 +543,18 @@
     ^ order collect:[:key | (aBlock value: (self at:key))].
 !
 
-detect: aBlock ifNone:exceptionBlock
+detect: aBlock ifNone:anExceptionValue
     "evaluate the argument, aBlock for each element in the receiver until
      the block returns true; in this case return the element which caused
      the true evaluation.
-     If none of the evaluations returns true, return the result of the
-     evaluation of the exceptionBlock"
+     If none of the evaluations returns true, return the value of anExceptionValue"
 
     order do:[:key | 
         |el|
         el := self at:key.
         (aBlock value:el) ifTrue:[^ el]
     ].
-    ^ exceptionBlock value
+    ^ anExceptionValue value
 !
 
 do: aBlock 
@@ -1073,10 +1072,10 @@
 !OrderedDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedDictionary.st,v 1.45 2013-11-08 15:12:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedDictionary.st,v 1.46 2014-03-05 13:19:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedDictionary.st,v 1.45 2013-11-08 15:12:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedDictionary.st,v 1.46 2014-03-05 13:19:29 cg Exp $'
 ! !