--- a/ArrayedCollection.st Fri Aug 04 18:44:15 2000 +0200
+++ b/ArrayedCollection.st Fri Aug 04 18:57:35 2000 +0200
@@ -300,7 +300,7 @@
|index "{ Class: SmallInteger }"|
thisContext isRecursive ifTrue:[
- RecursiveCollectionStoreStringSignal raiseRequestWith:self.
+ Object recursiveStoreStringSignal raiseRequestWith:self.
'ArrayedCollection [error]: storeOn: of self referencing collection.' errorPrintCR.
aStream nextPutAll:'#recursive'.
^ self
@@ -418,5 +418,5 @@
!ArrayedCollection class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.45 2000-08-04 16:44:15 tm Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.46 2000-08-04 16:57:09 tm Exp $'
! !