--- a/Collection.st	Sat Dec 18 01:15:58 1993 +0100
+++ b/Collection.st	Mon Dec 20 00:40:23 1993 +0100
@@ -24,7 +24,7 @@
 
 Abstract superclass for all collections
 
-$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.6 1993-12-11 00:45:11 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.7 1993-12-19 23:39:45 claus Exp $
 '!
 
 !Collection class methodsFor:'initialization'!
@@ -507,6 +507,11 @@
 
     |thisString buffer count string noneYet total|
 
+    thisContext isRecursive ifTrue:[
+        Transcript showCr:'Error: print/storeString of self referencing collection.'.
+        ^ '#("recursive")'
+    ].
+
     string := (self class name) , '('.
     noneYet := true.
     buffer := ''.