--- a/Interval.st	Thu May 03 18:31:40 2012 +0200
+++ b/Interval.st	Fri May 04 13:04:15 2012 +0200
@@ -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,9 +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 $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.54 2012-05-04 11:04:15 cg Exp $'
 ! !