--- a/Interval.st	Wed Jul 09 17:05:11 2014 +0200
+++ b/Interval.st	Wed Jul 09 17:05:27 2014 +0200
@@ -292,7 +292,7 @@
     |elementValue mySize newCollection|
 
     elementValue := start.
-    newCollection := self species withSize:(mySize := self size).
+    newCollection := self species newWithSize:(mySize := self size).
     1 to: mySize do:[:i |
         newCollection at:i put:(aBlock value:elementValue).
         elementValue := elementValue + step.
@@ -389,6 +389,7 @@
     "Modified: / 22-10-2008 / 12:47:41 / cg"
 ! !
 
+
 !Interval methodsFor:'printing & storing'!
 
 displayOn:aGCOrStream
@@ -688,9 +689,10 @@
 !Interval class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.54 2012-05-04 11:04:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.55 2014-07-09 15:05:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.54 2012-05-04 11:04:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.55 2014-07-09 15:05:27 cg Exp $'
 ! !
+