--- a/Collection.st	Fri Aug 04 18:44:15 2000 +0200
+++ b/Collection.st	Fri Aug 04 18:57:35 2000 +0200
@@ -86,10 +86,6 @@
         EmptyCollectionSignal := NotEnoughElementsSignal newSignalMayProceed:true.
         EmptyCollectionSignal nameClass:self message:#emptyCollectionSignal.
         EmptyCollectionSignal notifierString:'operation not allowed for empty collections'.
-
-        RecursiveCollectionStoreStringSignal := QuerySignal new.
-        RecursiveCollectionStoreStringSignal nameClass:self message:#recursiveCollectionStoreStringSignal.
-        RecursiveCollectionStoreStringSignal notifierString:'attempt to generate storeString of recursive collection'.
     ]
 
     "Modified: / 8.11.1997 / 19:18:17 / cg"
@@ -227,33 +223,6 @@
     ^ NotEnoughElementsSignal
 !
 
-recursiveCollectionStoreStringSignal
-    "return the query signal used to report storeString generation of recursive collections"
-
-    ^ RecursiveCollectionStoreStringSignal
-
-    "
-     Collection recursiveCollectionStoreStringSignal handle:[:ex |
-        self halt
-     ] do:[
-        |a|
-
-        a := Array new:1.
-        a at:1 put:a.
-        a storeOn:Transcript
-     ]
-    "
-
-    "
-     |a|
-
-     a := Array new:1.
-     a at:1 put:a.
-     a storeOn:Transcript
-    "
-
-!
-
 valueNotFoundSignal
     "return the signal used to report a nonexisting element."
 
@@ -1848,7 +1817,7 @@
     |notEmpty|
 
     thisContext isRecursive ifTrue:[
-        RecursiveCollectionStoreStringSignal raiseRequestWith:self.
+        Object recursiveStoreStringSignal raiseRequestWith:self.
         'Collection [error]: storeOn: of self referencing collection.' errorPrintCR.
         aStream nextPutAll:'#recursive'.
         ^ self
@@ -2138,6 +2107,6 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.99 2000-08-04 16:44:03 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.100 2000-08-04 16:57:35 tm Exp $'
 ! !
 Collection initialize!