--- a/RegressionTests__CollectionTests.st	Tue Apr 17 22:28:55 2012 +0200
+++ b/RegressionTests__CollectionTests.st	Thu May 03 18:35:39 2012 +0200
@@ -316,7 +316,7 @@
 !CollectionTests methodsFor:'tests-interval'!
 
 testInterval01
-    |i1 i2|
+    |i1 i2 enumeratedValues|
 
     i1 := 1 to:10.
 
@@ -350,11 +350,21 @@
 
     self assert: ( i2 keys asArray = (1 to:10) asArray ).
 
+    enumeratedValues := OrderedCollection new.
+    i1 do:[:each | enumeratedValues add:each ].
+    self assert:(enumeratedValues size == 10).
+    self assert:(enumeratedValues asArray = #(1 2 3 4 5 6 7 8 9 10)).
+
+    enumeratedValues := OrderedCollection new.
+    i2 do:[:each | enumeratedValues add:each ].
+    self assert:(enumeratedValues size == 10).
+    self assert:(enumeratedValues asArray = #(2 4 6 8 10 12 14 16 18 20)).
+
     "
      self basicNew testInterval01
     "
 
-    "Modified: / 10-10-2011 / 13:10:43 / cg"
+    "Modified: / 03-05-2012 / 18:34:56 / cg"
 ! !
 
 !CollectionTests methodsFor:'tests-orderedCollection'!