diff --git a/lib/src/finnish/StructuralFin.gf b/lib/src/finnish/StructuralFin.gf
index 8711bb72b..6091bd3cb 100644
--- a/lib/src/finnish/StructuralFin.gf
+++ b/lib/src/finnish/StructuralFin.gf
@@ -9,7 +9,7 @@ concrete StructuralFin of Structural = CatFin **
 
   all_Predet = {s = \\n,c => 
     let
-      kaiket = caseTable n ((mkN "kaikki" "kaiken" "kaikkena"))
+      kaiket = caseTable n (mkN "kaikki" "kaiken" "kaikkia")
     in
     case npform2case n c of {
       Nom => "kaikki" ;
diff --git a/lib/src/german/ExtraGer.gf b/lib/src/german/ExtraGer.gf
index abb2b0198..fde62e3df 100644
--- a/lib/src/german/ExtraGer.gf
+++ b/lib/src/german/ExtraGer.gf
@@ -33,6 +33,8 @@ concrete ExtraGer of ExtraGerAbs = CatGer **
 
     ICompAP ap = {s = \\_ => "wie" ++ ap.s ! APred} ; 
 
+    CompIQuant iq = {s = table {Ag g n p => iq.s ! n ! g ! Nom}} ;
+
     IAdvAdv adv = {s = "wie" ++ adv.s} ;
 
     DetNPMasc det = {
diff --git a/lib/src/german/ExtraGerAbs.gf b/lib/src/german/ExtraGerAbs.gf
index a795ec22f..09c1100b3 100644
--- a/lib/src/german/ExtraGerAbs.gf
+++ b/lib/src/german/ExtraGerAbs.gf
@@ -1,8 +1,8 @@
 abstract ExtraGerAbs = Extra [
   VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI,ClSlash,RCl,
   VPS,ListVPS,BaseVPS,ConsVPS,ConjVPS,MkVPS,PredVPS,EmptyRelSlash,
-  VPSlash,PassVPSlash,
-  Temp,Tense,Pol,S,NP,VV,VP,Conj,IAdv,IComp,ICompAP,IAdvAdv,Adv,AP] ** {
+  VPSlash,PassVPSlash,CompIQuant,
+  Temp,Tense,Pol,S,NP,VV,VP,Conj,IAdv,IQuant,IComp,ICompAP,IAdvAdv,Adv,AP] ** {
 
   fun
     PPzuAdv   : CN -> Adv ;  -- zum Lied, zur Flasche