--- a/Array.st	Wed Sep 29 11:20:20 2004 +0200
+++ b/Array.st	Wed Sep 29 13:30:37 2004 +0200
@@ -510,13 +510,14 @@
 
 addAllTo:aCollection
     "add all elements of the receiver to aCollection.
-     return aCollection."
+     Return aCollection.
+     Redefined here for slightly more speed."
 
     |stop "{ Class: SmallInteger }"|
 
     stop := self size.
     1 to:stop do:[:idx |
-	aCollection add:(self at:idx)
+        aCollection add:(self at:idx)
     ].
     ^ aCollection
 !
@@ -2492,5 +2493,5 @@
 !Array class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.134 2004-07-13 07:38:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.135 2004-09-29 11:30:37 cg Exp $'
 ! !