--- a/Set.st	Fri Aug 01 14:52:23 2014 +0200
+++ b/Set.st	Fri Aug 01 14:52:34 2014 +0200
@@ -803,6 +803,7 @@
 ! !
 
 
+
 !Set methodsFor:'obsolete set operations'!
 
 + aCollection
@@ -1230,6 +1231,20 @@
     ^ tally
 ! !
 
+
+!Set 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.
+
+     Sets do not have indices."
+
+    ^ self shouldNotImplement
+! !
+
 !Set methodsFor:'testing'!
 
 capacity 
@@ -1309,11 +1324,11 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.125 2014-07-09 16:20:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.126 2014-08-01 12:52:34 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.125 2014-07-09 16:20:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.126 2014-08-01 12:52:34 stefan Exp $'
 ! !