diff --git a/lib/src/german/NounGer.gf b/lib/src/german/NounGer.gf
index 9a317712a..2080c27a5 100644
--- a/lib/src/german/NounGer.gf
+++ b/lib/src/german/NounGer.gf
@@ -167,7 +167,8 @@ concrete NounGer of Noun = CatGer ** open ResGer, MorphoGer, Prelude in {
         } ;
 
     RelCN cn rs = {
-      s = \\a,n,c => cn.s ! a ! n ! c ++ rs.s ! gennum cn.g n ;
+      s = \\a,n,c => cn.s ! a ! n ! c ++ "," ++  
+                     rs.s ! gennum cn.g n ;
       g = cn.g
       } ;
 
diff --git a/lib/src/german/ParadigmsGer.gf b/lib/src/german/ParadigmsGer.gf
index d94ef4db3..ee2f122d1 100644
--- a/lib/src/german/ParadigmsGer.gf
+++ b/lib/src/german/ParadigmsGer.gf
@@ -549,7 +549,7 @@ mkV2 : overload {
     mkV2 : Str -> V2 = \s -> dirV2 (regV s) ;
     mkV2 : V -> V2 = dirV2 ;
     mkV2 : V -> Prep -> V2 = prepV2;
-    mkV2 : V -> Case -> V2 = \v,c -> prepV2 v (mkPrep [] c)
+    mkV2 : V -> Case -> V2 = \v,c -> prepV2 v (lin Prep {s = [] ; c = c ; isPrep = False}) ;
     } ;
 
 }