--- a/ArrayedCollection.st	Thu Aug 03 19:48:44 2000 +0200
+++ b/ArrayedCollection.st	Fri Aug 04 18:44:15 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libbasic' }"
+
 SequenceableCollection subclass:#ArrayedCollection
 	instanceVariableNames:''
 	classVariableNames:''
@@ -298,6 +300,7 @@
     |index "{ Class: SmallInteger }"|
 
     thisContext isRecursive ifTrue:[
+        RecursiveCollectionStoreStringSignal raiseRequestWith:self.
         'ArrayedCollection [error]: storeOn: of self referencing collection.' errorPrintCR.
         aStream nextPutAll:'#recursive'.
         ^ self
@@ -415,5 +418,5 @@
 !ArrayedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.44 1997-06-16 18:20:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.45 2000-08-04 16:44:15 tm Exp $'
 ! !