diff --git a/lib/resource-1.0/german/ResGer.gf b/lib/resource-1.0/german/ResGer.gf
index d82bc49b8..6771a2911 100644
--- a/lib/resource-1.0/german/ResGer.gf
+++ b/lib/resource-1.0/german/ResGer.gf
@@ -481,12 +481,12 @@ resource ResGer = ParamX ** open Prelude in {
     } ;
 
   insertInf : Str -> VP -> VP = \inf,vp -> {
-    s = \\a,vf => {fin = (vp.s ! a ! vf).fin ; inf = inf ++ (vp.s ! a ! vf).inf} ;
+    s = vp.s ;
     a1 = vp.a1 ;
     n2 = vp.n2 ;
     a2 = vp.a2 ;
     isAux = vp.isAux ; ----
-    inf = vp.inf ; --- ++ inf ;
+    inf = inf ++ vp.inf ;
     ext = vp.ext
     } ;
 
diff --git a/lib/resource-1.0/german/SentenceGer.gf b/lib/resource-1.0/german/SentenceGer.gf
index 4bb83c64a..107ca8e41 100644
--- a/lib/resource-1.0/german/SentenceGer.gf
+++ b/lib/resource-1.0/german/SentenceGer.gf
@@ -22,7 +22,7 @@ concrete SentenceGer of Sentence = CatGer ** open ResGer in {
 
     SlashVVV2 np vv v2 = 
         mkClause (np.s ! Nom) np.a 
-          (insertObj (\\a => v2.prefix ++ infPart vv.isAux  ++ v2.s ! VInf) 
+          (insertInf (v2.prefix ++ infPart vv.isAux  ++ v2.s ! VInf) 
              (predVGen vv.isAux vv)) **
         {c2 = v2.c2} ;
 
diff --git a/lib/resource-1.0/german/VerbGer.gf b/lib/resource-1.0/german/VerbGer.gf
index 9a0cbbd92..d4ea45f26 100644
--- a/lib/resource-1.0/german/VerbGer.gf
+++ b/lib/resource-1.0/german/VerbGer.gf
@@ -39,7 +39,7 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer in {
 
     ReflV2 v = insertObj (\\a => appPrep v.c2 (reflPron ! a)) (predV v) ;
 
-    PassV2 v = insertObj (\\_ => v.s ! VPastPart APred) (predV werdenPass) ;
+    PassV2 v = insertInf (v.s ! VPastPart APred) (predV werdenPass) ;
 
     UseVS, UseVQ = \v -> v ** {c2 = noPreposition Acc} ;