# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1487325668 -3600
# Node ID 0a3191652c3d926f95428550f22492c80522dce4
# Parent  20b4ddb4ba7a9b21e0b53587d35a7218d5b50398
#REFACTORING by stefan
class: ArrayedCollection
changed: #storeOn:
    prefer nextPut: over nextPutAll: for single characters

diff -r 20b4ddb4ba7a -r 0a3191652c3d ArrayedCollection.st
--- 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'!