--- a/ArrayedCollection.st	Wed Feb 22 12:07:41 1995 +0100
+++ b/ArrayedCollection.st	Fri Feb 24 17:32:14 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.13 1995-02-15 10:20:49 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.14 1995-02-24 16:32:14 claus Exp $
 '!
 
 !ArrayedCollection class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.13 1995-02-15 10:20:49 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.14 1995-02-24 16:32:14 claus Exp $
 "
 !
 
@@ -236,6 +236,8 @@
 
     |newArray oldSize|
 
+"/    'ARRCOLL: slow grow operation warning' errorPrintNL.
+
     oldSize := self size.
     (newSize ~~ oldSize) ifTrue:[
 	newArray := self species new:newSize.
@@ -263,9 +265,8 @@
 !ArrayedCollection methodsFor:'printing & storing'!
 
 storeOn:aStream
-    "output a printed representation (which can be re-read)
-     onto the argument aStream.
-     Redefined to output index access."
+    "output a printed representation (which can be re-read with readFrom:)
+     onto the argument aStream. Redefined to output index access."
 
     |index "{ Class: SmallInteger }"|
 
@@ -275,7 +276,7 @@
 	^ self
     ].
 
-    aStream nextPutAll:'('.
+    aStream nextPutAll:'(('.
     aStream nextPutAll:self class name.
     aStream nextPutAll:' new:'.
     self size printOn:aStream.
@@ -291,4 +292,8 @@
     ].
     index > 1 ifTrue:[aStream nextPutAll:' yourself'].
     aStream nextPut:$)
+
+    "
+     (Array with:(1@2) with:(1->2)) storeString
+    "
 ! !