--- a/ArrayedCollection.st	Fri Feb 17 10:25:31 2017 +0100
+++ b/ArrayedCollection.st	Fri Feb 17 11:01:08 2017 +0100
@@ -467,7 +467,7 @@
 
     aStream nextPutAll:'(('; nextPutAll:self class name; nextPutAll:' new:'.
     self size printOn:aStream.
-    aStream nextPutAll:')'.
+    aStream nextPut:$).
     index := 1.
     self do:[:element |
         aStream nextPutAll:' at:'. index printOn:aStream. aStream nextPutAll:' put:('.
@@ -482,7 +482,8 @@
      (Array with:(1@2) with:(1->2)) storeString    
     "
 
-    "Modified: 28.1.1997 / 00:39:59 / cg"
+    "Modified: / 28-01-1997 / 00:39:59 / cg"
+    "Modified: / 17-02-2017 / 10:51:53 / stefan"
 ! !
 
 !ArrayedCollection methodsFor:'queries'!