From 5eddf836092d901ceee702e5cdffd015964d567c Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 26 Sep 2006 10:23:50 +0000
Subject: [PATCH] improving gfcc generation

---
 resource-1.0/german/RelativeGer.gf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/resource-1.0/german/RelativeGer.gf b/resource-1.0/german/RelativeGer.gf
index e1ae60c29..18f6d4850 100644
--- a/resource-1.0/german/RelativeGer.gf
+++ b/resource-1.0/german/RelativeGer.gf
@@ -30,7 +30,7 @@ concrete RelativeGer of Relative = CatGer ** open ResGer in {
 
     FunRP p np rp = {
       s = \\gn,c => np.s ! c ++ appPrep p (rp.s ! gn) ;
-      a = RAg np.a
+      a = RAg {n = np.a.n ; p = np.a.p}
       } ;
 
     IdRP = {s = relPron ; a = RNoAg} ;