Небольшие исправления в PABCSystem. Почему-то тесты list.Add падают - говорят, что нельзя выбрать метод Add

Configuration/GlobalAssemblyInfo.cs

@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "1";
 	public const string Build = "0";
-	public const string Revision = "1174";
+	public const string Revision = "1178";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
 %MINOR%=1
-%REVISION%=1174
+%REVISION%=1178
 %COREVERSION%=0
 %MAJOR%=3

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.1.0.1174'
+!define VERSION '3.1.0.1178'

bin/Lib/PABCSystem.pas

@@ -3595,11 +3595,11 @@ type
       Self.first := first;
       cur := first-1;
     end;
-    function get_Current: integer; override;
+    function get_Current: integer; virtual;
     begin
       Result := cur;
     end;
-    function MoveNext(): boolean; override; 
+    function MoveNext(): boolean; virtual; 
     begin
       Result := True;
       cur += 1;
@@ -3625,12 +3625,12 @@ type
       Self.next := next;
     end;
     
-    function get_Current: object; override;
+    function get_Current: object; virtual;
     begin
       Result := cur;
     end;
 
-    function MoveNext(): boolean; override; 
+    function MoveNext(): boolean; virtual; 
     begin
       Result := True;
       if isfirst then 
@@ -3662,12 +3662,12 @@ type
       Self.next := next;
     end;
     
-    function get_Current: object; override;
+    function get_Current: object; virtual;
     begin
       Result := a;
     end;
 
-    function MoveNext(): boolean; override; 
+    function MoveNext(): boolean; virtual; 
     begin
       Result := True;
       if isfirst then 
@@ -7898,6 +7898,12 @@ begin
   Result := (Self.Where(cond),Self.Where(x->not cond(x)));
 end;
 
+/// Разделяет последовательности на две по заданному условию, в котором участвует индекс
+function Partition<T>(Self: sequence of T; cond: (T,integer)->boolean): (sequence of T,sequence of T); extensionmethod;
+begin
+  Result := (Self.Where(cond),Self.Where((x,i)->not cond(x,i)));
+end;
+
 /// Объединяет две последовательности в последовательность двухэлементных кортежей
 function ZipTuple<T,T1>(Self: sequence of T; a: sequence of T1): sequence of (T,T1); extensionmethod;
 begin