diff --git a/Parsers/PascalABCParserNewSaushkin/SemanticRules.cs b/Parsers/PascalABCParserNewSaushkin/SemanticRules.cs
index f0250a1e0..9416986f3 100644
--- a/Parsers/PascalABCParserNewSaushkin/SemanticRules.cs
+++ b/Parsers/PascalABCParserNewSaushkin/SemanticRules.cs
@@ -394,6 +394,7 @@ namespace GPPGParserScanner
             scanner.parsertools = parsertools;// передали parsertools в объект сканера
             GPPGParser parser = new GPPGParser(scanner);
             parsertools.build_tree_for_formatter = false;
+            parser.lambdaHelper = this.lambdaHelper;
             parser.parsertools = parsertools;
             if (!parser.Parse())
                 if (parsertools.errors.Count == 0)
diff --git a/TestSuite/formatstring4.pas b/TestSuite/formatstring4.pas
new file mode 100644
index 000000000..b488b0b72
--- /dev/null
+++ b/TestSuite/formatstring4.pas
@@ -0,0 +1,5 @@
+begin
+  var p: procedure := procedure()->exit;
+  var s := $'{Seq(0).Select(i->i).First}';
+  assert(s = '0');
+end.
\ No newline at end of file