diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs
index bcfea8b2a..171515105 100644
--- a/Configuration/GlobalAssemblyInfo.cs
+++ b/Configuration/GlobalAssemblyInfo.cs
@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "9";
 	public const string Build = "0";
-	public const string Revision = "3385";
+	public const string Revision = "3386";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;
diff --git a/Configuration/Version.defs b/Configuration/Version.defs
index 1474cc93c..debcaedbc 100644
--- a/Configuration/Version.defs
+++ b/Configuration/Version.defs
@@ -1,4 +1,4 @@
-%MINOR%=9
-%REVISION%=3385
 %COREVERSION%=0
+%REVISION%=3386
+%MINOR%=9
 %MAJOR%=3
diff --git a/Release/pabcversion.txt b/Release/pabcversion.txt
index 0a8a4a48a..c3afd1cb6 100644
--- a/Release/pabcversion.txt
+++ b/Release/pabcversion.txt
@@ -1 +1 @@
-3.9.0.3385
+3.9.0.3386
diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh
index 3858fd896..40f7f038d 100644
--- a/ReleaseGenerators/PascalABCNET_version.nsh
+++ b/ReleaseGenerators/PascalABCNET_version.nsh
@@ -1 +1 @@
-!define VERSION '3.9.0.3385'
+!define VERSION '3.9.0.3386'
diff --git a/TestSuite/CompilationSamples/PABCSystem.pas b/TestSuite/CompilationSamples/PABCSystem.pas
index 458ef85b4..1d094b308 100644
--- a/TestSuite/CompilationSamples/PABCSystem.pas
+++ b/TestSuite/CompilationSamples/PABCSystem.pas
@@ -685,7 +685,7 @@ type
     // https://referencesource.microsoft.com/#System.Core/System/Linq/Enumerable.cs,783a052330e7d48d,references
     
     public procedure CopyTo(a: array of integer; arrayIndex: integer) :=
-      for var i := 0 to System.Math.Min(self.Count, a.Length-arrayIndex) do
+      for var i := 0 to System.Math.Min(self.Count, a.Length-arrayIndex)-1 do
         a[i+arrayIndex] := l+i;
     
   end;
@@ -751,7 +751,7 @@ type
     end;
     
     public procedure CopyTo(a: array of char; arrayIndex: integer) :=
-      for var i := 0 to System.Math.Min(self.Count, a.Length-arrayIndex) do
+      for var i := 0 to System.Math.Min(self.Count, a.Length-arrayIndex)-1 do
         a[i+arrayIndex] := char(integer(l)+i);
     
   end;