--- a/ArrayedCollection.st	Tue Mar 07 22:55:20 1995 +0100
+++ b/ArrayedCollection.st	Thu Mar 09 00:40:27 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.15 1995-03-06 19:14:42 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.16 1995-03-08 23:36:39 claus Exp $
 '!
 
 !ArrayedCollection class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.15 1995-03-06 19:14:42 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.16 1995-03-08 23:36:39 claus Exp $
 "
 !
 
@@ -169,26 +169,6 @@
     "
 ! !
 
-!ArrayedCollection methodsFor:'accessing'!
-
-at:index ifAbsent:exceptionBlock
-    "return the element at index. 
-     If the index is invalid, return the value of evaluating exceptionBlock.
-     NOTICE: in ST-80, this message is only defined for Dictionaries,
-	     however, having a common protocol with indexed collections
-	     often simplifies things."
-
-    (index < 1 or:[index > self size]) ifTrue:[
-	^ exceptionBlock value
-    ].
-    ^ self at:index
-
-    "
-     #(1 2 3) at:4 ifAbsent:['no such index']  
-     #(1 2 3) at:3 ifAbsent:['no such index']  
-    "
-! !
-
 !ArrayedCollection methodsFor:'testing'!
 
 includesKey:anIndex