--- a/OrderedSet.st	Fri Aug 01 14:52:05 2014 +0200
+++ b/OrderedSet.st	Fri Aug 01 14:52:23 2014 +0200
@@ -411,6 +411,15 @@
 
 !OrderedSet methodsFor:'searching'!
 
+findFirst:aBlock ifNone:exceptionValue
+    "find the index of the first element, for which evaluation of the argument, aBlock returns true; 
+     return its index or the value from exceptionValue if none detected.
+     This is much like #detect:ifNone:, however, here an INDEX is returned,
+     while #detect:ifNone: returns the element."
+
+    ^ order findFirst:aBlock ifNone:exceptionValue.
+!
+
 indexOf:anObject
     ^ order indexOf:anObject.
 ! !
@@ -418,10 +427,10 @@
 !OrderedSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedSet.st,v 1.26 2014-06-03 05:39:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedSet.st,v 1.27 2014-08-01 12:52:23 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedSet.st,v 1.26 2014-06-03 05:39:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedSet.st,v 1.27 2014-08-01 12:52:23 stefan Exp $'
 ! !