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} ;