diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs
index 5440b844f..4b162086b 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 = "4";
 	public const string Build = "0";
-	public const string Revision = "1728";
+	public const string Revision = "1731";
 
         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 a2220ac36..405f1cea7 100644
--- a/Configuration/Version.defs
+++ b/Configuration/Version.defs
@@ -1,4 +1,4 @@
-%MINOR%=4
-%REVISION%=1728
 %COREVERSION%=0
+%REVISION%=1731
+%MINOR%=4
 %MAJOR%=3
diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh
index fa9d6a836..f7bc08fe4 100644
--- a/ReleaseGenerators/PascalABCNET_version.nsh
+++ b/ReleaseGenerators/PascalABCNET_version.nsh
@@ -1 +1 @@
-!define VERSION '3.4.0.1728'
+!define VERSION '3.4.0.1731'
diff --git a/SyntaxVisitors/SugarVisitors/TupleVisitor.cs b/SyntaxVisitors/SugarVisitors/TupleVisitor.cs
index bb195e13d..97c03243c 100644
--- a/SyntaxVisitors/SugarVisitors/TupleVisitor.cs
+++ b/SyntaxVisitors/SugarVisitors/TupleVisitor.cs
@@ -16,6 +16,11 @@ namespace SyntaxVisitors.SugarVisitors
             get { return new TupleVisitor(); }
         }
 
+        public override void visit(read_accessor_name wn)
+        {
+
+        }
+
         public override void visit(tuple_node tup)
         {
             var dn = new dot_node(new dot_node(new ident("?System"), new ident("Tuple")), new ident("Create", tup.source_context));
diff --git a/TestSuite/ReadExPropTup.pas b/TestSuite/ReadExPropTup.pas
new file mode 100644
index 000000000..f1a42fdb0
--- /dev/null
+++ b/TestSuite/ReadExPropTup.pas
@@ -0,0 +1,9 @@
+var a: integer;
+
+type
+  TExample = class
+    property Value: (integer,integer) read (1,1);
+  end;
+ 
+begin
+end.
\ No newline at end of file