diff --git a/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs b/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs
index 97bd08e5e..35df5b7c1 100644
--- a/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs
+++ b/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs
@@ -3009,8 +3009,11 @@ public partial class GPPGParser: ShiftReduceParser<PascalABCSavParser.Union, Lex
         }
         break;
       case 103: // var_decl_sect -> var_decl_sect, var_decl
-{ 
-			CurrentSemanticValue.stn = (ValueStack[ValueStack.Depth-2].stn as variable_definitions).Add(ValueStack[ValueStack.Depth-1].stn as var_def_statement, CurrentLocationSpan);
+{
+                        var vdn = ValueStack[ValueStack.Depth - 2].stn as variable_definitions;
+                        var vds = ValueStack[ValueStack.Depth - 1].stn as var_def_statement;
+
+            CurrentSemanticValue.stn = vdn.Add(vds, CurrentLocationSpan);
 		}
         break;
       case 104: // var_decl_sect -> tkVar, tkRoundOpen, identifier, tkComma, ident_list, 
diff --git a/TestSuite/errors/err0301.pas b/TestSuite/errors/err0301.pas
new file mode 100644
index 000000000..fcc94c901
--- /dev/null
+++ b/TestSuite/errors/err0301.pas
@@ -0,0 +1,4 @@
+var f: integer->integer := x->2*Result;
+
+begin
+end.
\ No newline at end of file