From 3949424a7848eabf8f12f3cf77fda872e6b7f0d1 Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Tue, 5 Jun 2018 18:19:09 +0200
Subject: [PATCH] fixed Ger SentCN and AdvCN, which erased their earlier
 modifiers

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

diff --git a/src/german/NounGer.gf b/src/german/NounGer.gf
index 58b75ac6f..c4fae0a8e 100644
--- a/src/german/NounGer.gf
+++ b/src/german/NounGer.gf
@@ -199,9 +199,9 @@ concrete NounGer of Noun = CatGer ** open ResGer, MorphoGer, Prelude in {
       rc = (np.rc ++ embedInCommas (rs.s ! RGenNum (gennum (genderAgr np.a) (numberAgr np.a)))) ;
       isPron = False } ;
 
-    SentCN cn s = cn ** {ext = embedInCommas s.s} ;
+    SentCN cn s = cn ** {ext = cn.ext ++ embedInCommas s.s} ;
 
-    AdvCN cn a = cn ** {adv = a.s} ;
+    AdvCN cn a = cn ** {adv = cn.adv ++ a.s} ;
 
     ApposCN  cn np = let g = cn.g in cn ** {
       s = \\a,n,c => cn.s ! a ! n ! c ++ np.s ! NPC c ++ bigNP np } ;