diff --git a/lib/src/abstract/Extra.gf b/lib/src/abstract/Extra.gf
index fa05b8a89..e9949c628 100644
--- a/lib/src/abstract/Extra.gf
+++ b/lib/src/abstract/Extra.gf
@@ -43,4 +43,6 @@ abstract Extra = Cat ** {
     ICompAP : AP -> IComp ;   -- "how old"
     IAdvAdv : Adv -> IAdv ;   -- "how often"
 
+    CompIQuant : IQuant -> IComp ; -- which (is it) [agreement to NP]
+
 }
diff --git a/lib/src/romance/ExtraRomance.gf b/lib/src/romance/ExtraRomance.gf
index d4647129a..146e4cc05 100644
--- a/lib/src/romance/ExtraRomance.gf
+++ b/lib/src/romance/ExtraRomance.gf
@@ -31,4 +31,6 @@ incomplete concrete ExtraRomance of ExtraRomanceAbs = CatRomance **
       isPol = p.isPol
       } ;
 
+    CompIQuant iq = {s = \\aa => iq.s ! aa.n ! aa.g ! Nom} ;
+
 } 
diff --git a/lib/src/romance/ExtraRomanceAbs.gf b/lib/src/romance/ExtraRomanceAbs.gf
index b223e0523..c4a3dc9ac 100644
--- a/lib/src/romance/ExtraRomanceAbs.gf
+++ b/lib/src/romance/ExtraRomanceAbs.gf
@@ -1,6 +1,6 @@
 abstract ExtraRomanceAbs = Cat, Extra[
   VPI,ListVPI,BaseVPI,ConsVPI,MkVPI,ComplVPIVV,ConjVPI,
-  VV,VP,Conj,Pron,ProDrop] ** {
+  VV,VP,Conj,Pron,ProDrop,CompIQuant,IQuant,IComp] ** {
 
   fun 
     TPasseSimple : Tense ; --# notpresent