diff --git a/lib/src/api/Constructors.gf b/lib/src/api/Constructors.gf
index f22b85509..91f142927 100644
--- a/lib/src/api/Constructors.gf
+++ b/lib/src/api/Constructors.gf
@@ -737,7 +737,9 @@ incomplete resource Constructors = open Grammar in {
 
 -- Existentials are a special construction.
 
-      mkQCl : IP -> QCl  -- 8. what is there --# notminimal
+      mkQCl : IP -> QCl ;    -- 8. what is there --# notminimal
+      mkQCl : IComp -> NP -> QCl ;  -- 9. who is John --# notminimal
+
       } ; --# notminimal
 
 
@@ -1399,8 +1401,9 @@ incomplete resource Constructors = open Grammar in {
       mkQCl : IP -> NP -> QCl   -- who is John --# notminimal
                                          =    \a -> QuestIComp (CompIP a)   ; --# notminimal
       mkQCl : IP -> QCl         -- which houses are there --# notminimal
-                                         =    ExistIP  --# notminimal
-
+                                         =    ExistIP ; --# notminimal
+      mkQCl : IComp -> NP -> QCl   -- who is John --# notminimal
+                                         =    \a -> QuestIComp a   ; --# notminimal
       } ;  
 
     mkIP = overload {  
diff --git a/lib/src/finnish/ExtraFin.gf b/lib/src/finnish/ExtraFin.gf
index 41645bb0b..6793a3da0 100644
--- a/lib/src/finnish/ExtraFin.gf
+++ b/lib/src/finnish/ExtraFin.gf
@@ -89,4 +89,10 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
 
     IAdvAdv adv = {s = "kuinka" ++ adv.s} ;
 
+    ProDrop p = {
+      s = table {NPCase (Nom | Gen) => [] ; c => p.s ! c} ; 
+          ---- drop Gen only works in adjectival position
+      a = p.a
+      } ;
+
 } 
diff --git a/lib/src/finnish/ExtraFinAbs.gf b/lib/src/finnish/ExtraFinAbs.gf
index 1908edf3d..26ef409c4 100644
--- a/lib/src/finnish/ExtraFinAbs.gf
+++ b/lib/src/finnish/ExtraFinAbs.gf
@@ -1,6 +1,6 @@
 abstract ExtraFinAbs = Extra [
   GenNP,VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI,
-  VV,VP,Conj,NP,Quant,IAdv,IComp,ICompAP,IAdvAdv,Adv,AP] ** {
+  VV,VP,Conj,NP,Quant,IAdv,IComp,ICompAP,IAdvAdv,Adv,AP, Pron, ProDrop] ** {
 
   fun
     AdvExistNP : Adv -> NP -> Cl ;        -- kuvassa olemme me