--- a/SequenceableCollection.st	Fri Sep 29 19:35:53 2000 +0200
+++ b/SequenceableCollection.st	Mon Oct 02 16:02:43 2000 +0200
@@ -81,10 +81,11 @@
     "create & return a new instance from information encoded in anArray.
      Redefined for faster creation.
     "
-    |col|
-    col := self new.
-    anArray from:2 do:[:el| col add:(el decodeAsLiteralArray) ].
-  ^ col
+    |col i|
+    col := self withSize:anArray size - 1.
+    i := 1.
+    anArray from:2 do:[:el| col at:i put:el decodeAsLiteralArray. i := i + 1].
+    ^ col
 
 !
 
@@ -5229,6 +5230,6 @@
 !SequenceableCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.145 2000-09-15 10:30:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.146 2000-10-02 14:02:43 stefan Exp $'
 ! !
 SequenceableCollection initialize!