--- a/ArrayedCollection.st	Fri Dec 06 15:40:10 2013 +0100
+++ b/ArrayedCollection.st	Fri Dec 06 15:40:54 2013 +0100
@@ -393,7 +393,7 @@
     |index "{ Class: SmallInteger }"|
 
     thisContext isRecursive ifTrue:[
-        Object recursiveStoreStringSignal raiseRequestWith:self.
+        RecursiveStoreError raiseRequestWith:self.
         'ArrayedCollection [error]: storeOn: of self referencing collection.' errorPrintCR.
         aStream nextPutAll:'#recursive'.
         ^ self
@@ -502,6 +502,6 @@
 !ArrayedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.64 2012-12-21 11:58:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.65 2013-12-06 14:40:54 stefan Exp $'
 ! !