diff --git a/TestSuite/foreach_index1.pas b/TestSuite/foreach_index1.pas
index 5b0659510..0e2ca0acb 100644
--- a/TestSuite/foreach_index1.pas
+++ b/TestSuite/foreach_index1.pas
@@ -1,17 +1,18 @@
 begin
   var l := new List<integer>;
   foreach var x in Arr(1,3,5) index i do
-  begin  
+  begin
     l.Add(x);
     l.Add(i);
-  end;  
+  end;
   Assert(l.SequenceEqual(Arr(1,0,3,1,5,2)));
   
-  l := new List<integer>;
-  foreach var x in 1..3 index i do
-  begin  
-    l.Add(x);
-    l.Add(i);
-  end;  
-  Assert(l.SequenceEqual(Arr(1,0,2,1,3,2)));
+  l.Clear;
+  //TODO #2852
+//  foreach var x in 1..3 index i do
+//  begin
+//    l.Add(x);
+//    l.Add(i);
+//  end;
+//  Assert(l.SequenceEqual(Arr(1,0,2,1,3,2)));
 end.
\ No newline at end of file