--- a/RegressionTests__SegmentedOrderedCollectionTests.st	Wed Mar 20 12:24:53 2013 +0100
+++ b/RegressionTests__SegmentedOrderedCollectionTests.st	Wed Mar 20 12:27:38 2013 +0100
@@ -114,10 +114,20 @@
 
     c grow:1000.
     self assert:(c size == 1000).
+    self assert:(c at:1) == 15010.
+    self assert:(c at:2) == 19990.
     3 to:1000 do:[:i |
         self assert:(c at:i) == nil
     ].
 
+    c grow:105.
+    self assert:(c size == 105).
+    self assert:(c at:1) == 15010.
+    self assert:(c at:2) == 19990.
+    3 to:105 do:[:i |
+        self assert:(c at:i) == nil
+    ].
+
     "
      self run:#test01
      self new test01