diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs
index 46c0c9827..0da71beda 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 = "3530";
+	public const string Revision = "3531";
 
         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 fe94e4b96..eb735a70e 100644
--- a/Configuration/Version.defs
+++ b/Configuration/Version.defs
@@ -1,4 +1,4 @@
-%COREVERSION%=0
-%REVISION%=3530
 %MINOR%=9
+%REVISION%=3531
+%COREVERSION%=0
 %MAJOR%=3
diff --git a/Release/pabcversion.txt b/Release/pabcversion.txt
index d9ea4b2a1..97f2850bb 100644
--- a/Release/pabcversion.txt
+++ b/Release/pabcversion.txt
@@ -1 +1 @@
-3.9.0.3530
+3.9.0.3531
diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh
index b570bd82e..f1a6fac90 100644
--- a/ReleaseGenerators/PascalABCNET_version.nsh
+++ b/ReleaseGenerators/PascalABCNET_version.nsh
@@ -1 +1 @@
-!define VERSION '3.9.0.3530'
+!define VERSION '3.9.0.3531'
diff --git a/TestSuite/CompilationSamples/PABCSystem.pas b/TestSuite/CompilationSamples/PABCSystem.pas
index e7473e3b7..f199647cb 100644
--- a/TestSuite/CompilationSamples/PABCSystem.pas
+++ b/TestSuite/CompilationSamples/PABCSystem.pas
@@ -10984,6 +10984,12 @@ begin
   Result := new HashSet<T>(Self);
 end;
 
+/// Возвращает множество по данной последовательности
+function ToSet<T>(Self: sequence of T): HashSet<T>; extensionmethod;
+begin
+  Result := new HashSet<T>(Self);
+end;
+
 /// Возвращает множество SortedSet по данной последовательности
 function ToSortedSet<T>(Self: sequence of T): SortedSet<T>; extensionmethod;
 begin
diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
index e7473e3b7..f199647cb 100644
--- a/bin/Lib/PABCSystem.pas
+++ b/bin/Lib/PABCSystem.pas
@@ -10984,6 +10984,12 @@ begin
   Result := new HashSet<T>(Self);
 end;
 
+/// Возвращает множество по данной последовательности
+function ToSet<T>(Self: sequence of T): HashSet<T>; extensionmethod;
+begin
+  Result := new HashSet<T>(Self);
+end;
+
 /// Возвращает множество SortedSet по данной последовательности
 function ToSortedSet<T>(Self: sequence of T): SortedSet<T>; extensionmethod;
 begin