From 0b52307e9170fbf6e2f7617e8eb56bad68b9ca83 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Mon, 21 Aug 2023 15:02:21 +0200
Subject: [PATCH] added lin FClause

---
 src/german/ExtraGer.gf | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/german/ExtraGer.gf b/src/german/ExtraGer.gf
index c884dd8b..14eae0be 100644
--- a/src/german/ExtraGer.gf
+++ b/src/german/ExtraGer.gf
@@ -330,8 +330,8 @@ concrete ExtraGer of ExtraGerAbs = CatGer **
   lin
     VPass v =
       let vp = predV werdenPass
-      in vp ** {subj = esSubj ;
-		inf = vp.inf ** {s = v.s ! VPastPart APred } } ; -- construct the formal clause
+      in lin FClause (vp ** {subj = esSubj ;
+		                     inf = vp.inf ** {s = v.s ! VPastPart APred } }) ; -- construct the formal clause
 
     AdvFor adv fcl = fcl ** {a2 = adv.s} ;