--- a/OrderedCollection.st	Sat Aug 05 21:06:46 2000 +0200
+++ b/OrderedCollection.st	Sat Aug 05 21:07:10 2000 +0200
@@ -201,32 +201,8 @@
     "
 ! !
 
-
 !OrderedCollection methodsFor:'accessing'!
 
-after:anObject ifAbsent:exceptionBlock
-    "return the element after the argument anObject, nil if there is none.
-     If anObject is not in the receiver, return the result from evaluating exceptionBlock."
-
-    |idx|
-
-    idx := self indexOf:anObject.
-    idx ~~ 0 ifTrue:[
-        idx == lastIndex ifTrue:[^ nil].
-        ^ self at:(idx + 1).
-    ].
-    ^ exceptionBlock value
-
-    "
-     #(4 3 2 1) asOrderedCollection after:3.   
-     #(4 3 3 1) asOrderedCollection after:3. <- what should be returned here ?  
-     #(4 3 2 1) asOrderedCollection after:5 
-     #(4 3 2 1) asOrderedCollection after:1    
-    "
-
-    "Modified: 10.5.1996 / 14:07:28 / cg"
-!
-
 at:anInteger
     "return the element at index, anInteger"
 
@@ -256,30 +232,6 @@
     "Modified: / 12.11.1997 / 17:56:32 / cg"
 !
 
-before:anObject ifAbsent:exceptionBlock
-    "return the element before the argument anObject, nil if there is none.
-     If anObject is not in the receiver, return the result from evaluating exceptionBlock."
-
-    |idx|
-
-    idx := self indexOf:anObject.
-    idx ~~ 0 ifTrue:[
-        idx == firstIndex ifTrue:[^ nil].
-        ^ self at:(idx - 1).
-    ].
-    ^ exceptionBlock value
-
-    "
-     #(4 3 2 1) asOrderedCollection before:3.   
-     #(4 3 2 1) asOrderedCollection before:5 
-     #(4 3 2 1) asOrderedCollection before:1    
-     #(4 2 1 1) asOrderedCollection before:1    
-     #(4 3 2 1) asOrderedCollection before:4    
-    "
-
-    "Modified: 10.5.1996 / 14:07:55 / cg"
-!
-
 first
     "return the first element"
 
@@ -1828,5 +1780,5 @@
 !OrderedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.74 2000-06-19 14:52:17 ps Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.75 2000-08-05 19:07:10 cg Exp $'
 ! !