From 38dac3de60a3bef45c97e4f2c5ad68816ff8ad58 Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Thu, 8 Feb 2018 21:16:43 +0100
Subject: [PATCH] restored c field in Ger.UttAP - yet another suppression
 previously undetected

---
 src/german/PhraseGer.gf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/german/PhraseGer.gf b/src/german/PhraseGer.gf
index c5a9b9959..dc49fa3a2 100644
--- a/src/german/PhraseGer.gf
+++ b/src/german/PhraseGer.gf
@@ -18,7 +18,7 @@ concrete PhraseGer of Phrase = CatGer ** open Prelude, ResGer in {
     UttAdv adv = adv ;
     UttCN n = {s = n.s ! Strong ! Sg ! Nom ++ n.adv ++ n.ext ++ n.rc ! Sg} ;
     UttCard n = {s = n.s ! Neutr ! Nom} ;
-    UttAP ap = {s = ap.s ! APred ++ ap.ext} ;
+    UttAP ap = {s = ap.c.p1 ++ ap.s ! APred ++ ap.c.p2 ++ ap.ext} ;
     UttInterj i = i ;
 
     NoPConj = {s = []} ;