diff --git a/lib/resource-1.0/german/LexiconGer.gf b/lib/resource-1.0/german/LexiconGer.gf
index 793fb1676..c851d3504 100644
--- a/lib/resource-1.0/german/LexiconGer.gf
+++ b/lib/resource-1.0/german/LexiconGer.gf
@@ -172,7 +172,7 @@ lin
   shirt_N = reg2N "Hemd" "Hemden" neuter ; ---- infl
   shoe_N = regN "Schuh" ;
   shop_N = reg2N "Laden" "Läden" masculine ;
-  short_A = regA "kurz" ;
+  short_A =  mkA "kurz" "kürzer" "kürzeste" ;
   silver_N = reg2N "Silber" "Silber" neuter ; ---- infl
   sister_N = reg2N "Schwester" "Schwestern" feminine ;
   sleep_V = irregV "schlafen" "schläft" "schlief" "schliefe" "geschlafen" ;
diff --git a/lib/resource-1.0/german/ParadigmsGer.gf b/lib/resource-1.0/german/ParadigmsGer.gf
index b053b86f0..f0b96e016 100644
--- a/lib/resource-1.0/german/ParadigmsGer.gf
+++ b/lib/resource-1.0/german/ParadigmsGer.gf
@@ -307,9 +307,9 @@ oper
     MorphoGer.mkA a aa b (init c) ** {lock_A = <>} ;
 
   regA : Str -> A = \a -> case a of {
-    teu + "er" => mkA a (teu + "rer") (teu + "rest") ;
-    _ + "e"    => mkA a (a + "r") (a + "st") ;
-    _          => mkA a (a + "er") (a + "est")
+    teu + "er" => mkA a (teu + "rer") (teu + "reste") ;
+    _ + "e"    => mkA a (a + "r") (a + "ste") ;
+    _          => mkA a (a + "er") (a + "este")
     } ;
 
   invarA = \s -> {s = \\_,_ => s ; lock_A = <>} ; ---- comparison