--- a/Interval.st	Thu Dec 20 11:48:59 2012 +0000
+++ b/Interval.st	Sat Jan 19 01:30:00 2013 +0000
@@ -292,7 +292,7 @@
     |elementValue mySize newCollection|
 
     elementValue := start.
-    newCollection := Array new:(mySize := self size).
+    newCollection := self species withSize:(mySize := self size).
     1 to: mySize do:[:i |
         newCollection at:i put:(aBlock value:elementValue).
         elementValue := elementValue + step.
@@ -303,8 +303,7 @@
      (1 to:20 by:2) collect:[:i | i*i]              
     "
 
-    "Modified: / 03-05-2012 / 16:48:16 / cg"
-    "Modified (comment): / 03-05-2012 / 18:31:01 / cg"
+    "Modified: / 04-05-2012 / 13:03:56 / cg"
 !
 
 do:aBlock
@@ -689,16 +688,9 @@
 !Interval class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.53 2012/05/03 16:31:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.54 2012-05-04 11:04:15 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/Interval.st,v 1.53 2012/05/03 16:31:40 cg Exp §'
-!
-
-version_SVN
-    ^ '$Id: Interval.st 10807 2012-05-05 21:58:24Z vranyj1 $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.54 2012-05-04 11:04:15 cg Exp $'
 ! !
-
-
-