--- a/Collection.st	Tue Jan 28 00:38:50 1997 +0100
+++ b/Collection.st	Tue Jan 28 00:40:12 1997 +0100
@@ -1223,7 +1223,7 @@
     |limit firstOne string|
 
     thisContext isRecursive ifTrue:[
-        Transcript showCR:'Error: printOn: of self referencing collection.'.
+        'Collection [error]: printOn: of self referencing collection.' errorPrintCR.
         aStream nextPutAll:'#("recursive")'.
         ^ self
     ].
@@ -1269,7 +1269,7 @@
      a printOn:Transcript
     "
 
-    "Modified: 18.5.1996 / 15:41:51 / cg"
+    "Modified: 28.1.1997 / 00:39:17 / cg"
 !
 
 printOrDisplayStringUsing:aSelector
@@ -1279,7 +1279,7 @@
     |thisString buffer count string noneYet total limit|
 
     thisContext isRecursive ifTrue:[
-        Transcript showCR:'Error: print/storeString of self referencing collection.'.
+        'Collection [error]: print/storeString of self referencing collection.' errorPrintCR.
         ^ '#("recursive")'
     ].
 
@@ -1313,7 +1313,7 @@
     string := string , buffer , ')'.
     ^ string
 
-    "Modified: 18.5.1996 / 15:41:52 / cg"
+    "Modified: 28.1.1997 / 00:39:07 / cg"
 !
 
 storeOn:aStream
@@ -1325,7 +1325,7 @@
     |isEmpty|
 
     thisContext isRecursive ifTrue:[
-        Transcript showCR:'Error: storeOn: of self referencing collection.'.
+        'Collection [error]: storeOn: of self referencing collection.' errorPrintCR.
         aStream nextPutAll:'#recursive'.
         ^ self
     ].
@@ -1356,7 +1356,7 @@
      s storeOn:Transcript
     "
 
-    "Modified: 18.5.1996 / 15:41:55 / cg"
+    "Modified: 28.1.1997 / 00:38:57 / cg"
 ! !
 
 !Collection methodsFor:'queries'!
@@ -1580,6 +1580,6 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.64 1997-01-22 18:37:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.65 1997-01-27 23:40:12 cg Exp $'
 ! !
 Collection initialize!