--- a/OrderedCollection.st	Fri May 12 14:35:09 1995 +0200
+++ b/OrderedCollection.st	Tue May 16 19:09:45 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.23 1995-05-01 21:38:19 claus Exp $
+$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.24 1995-05-16 17:08:13 claus Exp $
 '!
 
 !OrderedCollection class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.23 1995-05-01 21:38:19 claus Exp $
+$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.24 1995-05-16 17:08:13 claus Exp $
 "
 !
 
@@ -393,7 +393,7 @@
     idx ~~ 0 ifTrue:[
 	^ self add:newObject beforeIndex:(idx + 1).
     ].
-    self errorNotFound
+    self errorNotFound:oldObject
 
     "
      |c|
@@ -424,7 +424,7 @@
     idx ~~ 0 ifTrue:[
 	^ self add:newObject beforeIndex:idx.
     ].
-    self errorNotFound
+    self errorNotFound:oldObject
 
     "
      |c|
@@ -572,7 +572,7 @@
     "return the element, after anObject.
      If anObject is not in the receiver, report an error."
 
-    ^ self after:anObject ifAbsent:[self errorNotFound]
+    ^ self after:anObject ifAbsent:[self errorNotFound:anObject]
 
     "
      #(4 3 2 1) asOrderedCollection after:3. 
@@ -605,7 +605,7 @@
     "return the element before the argument, anObject.
      If anObject is not in the receiver, report an error."
 
-    ^ self before:anObject ifAbsent:[self errorNotFound]
+    ^ self before:anObject ifAbsent:[self errorNotFound:anObject]
 
     "
      #(4 3 2 1) asOrderedCollection before:3.