--- a/RegressionTests__CollectionTests.st	Wed Jan 13 14:38:51 2016 +0100
+++ b/RegressionTests__CollectionTests.st	Wed Jan 13 16:07:14 2016 +0100
@@ -997,6 +997,35 @@
     c2 := c select:[:el | el startsWith:'t'].
     self assert:(c2 size == (s count:[:el | el startsWith:'t' ])).
 
+    c2 := c reject:[:el | el startsWith:'t'].
+    self assert:(c2 size == ((s copyFrom:2) count:[:el | el startsWith:'t' ])).
+
+    s := #(1 2 3 4 5 6 7 8).
+    c := s from:2.
+
+    self assert: ( c size == (s size - 1) ).
+    1 to:c size do:[:i |
+        self assert: ( (c at:i) == (s at:i+1) ).
+    ].
+
+    c2 := c collect:[:el |el].
+    self assert:(c2 size == c size).
+    self assert:(c2 = c).
+    self assert:(c2 sameContentsAs:(s copyFrom:2)).
+
+    c2 := c select:[:el |true].
+    self assert:(c2 size == c size).
+    self assert:(c2 = c).
+    self assert:(c2 sameContentsAs:(s copyFrom:2)).
+
+    c2 := c select:[:el |el even].
+    self assert:(c2 size == ((s copyFrom:2) select:#even) size).
+    self assert:(c2 sameContentsAs:((s copyFrom:2) select:#even)).
+
+    c2 := c reject:[:el |el even].
+    self assert:(c2 size == ((s copyFrom:2) reject:#even) size).
+    self assert:(c2 sameContentsAs:((s copyFrom:2) reject:#even)).
+
     "
      self basicNew testReindexedCollection01
     "