diff --git a/lib/src/german/NounGer.gf b/lib/src/german/NounGer.gf
index b7ef40d83..534e9495e 100644
--- a/lib/src/german/NounGer.gf
+++ b/lib/src/german/NounGer.gf
@@ -5,7 +5,7 @@ concrete NounGer of Noun = CatGer ** open ResGer, MorphoGer, Prelude in {
   lin
     DetCN det cn = {
       s = \\c => det.s ! cn.g ! c ++ 
-                 (let k = (prepC c).c in cn.s ! adjfCase det.a k ! det.n ! k) ;
+                 (let k = (prepC c).c in cn.s ! adjfCase det.a det.n k ! det.n ! k) ;
       a = agrgP3 cn.g det.n ;
       isPron = False
       } ;
@@ -52,9 +52,9 @@ concrete NounGer of Noun = CatGer ** open ResGer, MorphoGer, Prelude in {
         a = quant.a
       in {
         s  = \\g,c => quant.s ! num.isNum ! n ! g ! c ++ (let k = (prepC c).c in
-                        num.s!g!k ++ ord.s ! agrAdj g (adjfCase a k) n k) ;
+                        num.s!g!k ++ ord.s ! agrAdj g (adjfCase a n k) n k) ;
         sp = \\g,c => quant.sp ! n ! g ! c ++ (let k = (prepC c).c in
-                        num.s!g!k ++ ord.s ! agrAdj g (adjfCase a k) n k) ;
+                        num.s!g!k ++ ord.s ! agrAdj g (adjfCase a n k) n k) ;
         n = n ;
         a = a
         } ;
@@ -116,7 +116,7 @@ concrete NounGer of Noun = CatGer ** open ResGer, MorphoGer, Prelude in {
       } ;
 
     MassNP cn = {
-      s = \\c => usePrepC c (\k -> cn.s ! adjfCase Strong k ! Sg ! k) ;
+      s = \\c => usePrepC c (\k -> cn.s ! Strong ! Sg ! k) ;
       a = agrP3 Sg ;
       isPron = False
       } ;
diff --git a/lib/src/german/ResGer.gf b/lib/src/german/ResGer.gf
index 1e5a5e6d3..01d6eca93 100644
--- a/lib/src/german/ResGer.gf
+++ b/lib/src/german/ResGer.gf
@@ -167,8 +167,8 @@ resource ResGer = ParamX ** open Prelude in {
 
 -- This is used twice in NounGer.
 
-    adjfCase : Adjf -> Case -> Adjf = \a,c -> case <a,c> of {
-         <Strong, Nom|Acc> => Strong ;
+    adjfCase : Adjf -> Number -> Case -> Adjf = \a,n,c -> case <n,c> of {
+         <Sg, Nom|Acc> => a ;
          _ => Weak
          } ;