From 4b5ff2edf8291ede75a17984d4add5a2fdf28c39 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 21 Jul 2015 15:06:05 +0000
Subject: [PATCH] Ger Rel changes in ExtensionsGer

---
 lib/src/translator/ExtensionsGer.gf | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/src/translator/ExtensionsGer.gf b/lib/src/translator/ExtensionsGer.gf
index a0b887eef..5a025ca77 100644
--- a/lib/src/translator/ExtensionsGer.gf
+++ b/lib/src/translator/ExtensionsGer.gf
@@ -47,14 +47,14 @@ lin
               predVGen v.isAux v)))) ;
 
     PastPartRS ant pol sl = {   -- guessed by KA, some fields in sl are ignored!!
-      s = \\gn => let agr = agrgP3 Masc (numGenNum gn)
+      s = \\rgn => let agr = case rgn of {RGenNum gn => agrgP3 Masc (numGenNum gn) ; _ => agrgP3 Neutr Sg}
                   in sl.s.s ! VPastPart APred ++ 
                      (sl.nn ! agr).p1 ++ (sl.nn ! agr).p2 ++ sl.a2;
       c = Nom
       } ;
 
     PresPartRS ant pol vp = {   -- guessed by KA!!
-      s = \\gn => let agr = agrgP3 Masc (numGenNum gn)
+      s = \\rgn => let agr = case rgn of {RGenNum gn => agrgP3 Masc (numGenNum gn) ; _ => agrgP3 Neutr Sg}
                   in vp.s.s ! VPresPart APred ++ 
                      (vp.nn ! agr).p1 ++ (vp.nn ! agr).p2;
       c = Nom