diff --git a/lib/src/abstract/Extra.gf b/lib/src/abstract/Extra.gf
index e9949c628..2e852a4a3 100644
--- a/lib/src/abstract/Extra.gf
+++ b/lib/src/abstract/Extra.gf
@@ -45,4 +45,6 @@ abstract Extra = Cat ** {
 
     CompIQuant : IQuant -> IComp ; -- which (is it) [agreement to NP]
 
+    PrepCN : Prep -> CN -> Adv ;   -- by accident [Prep + CN without article]
+
 }
diff --git a/lib/src/romance/ExtraRomance.gf b/lib/src/romance/ExtraRomance.gf
index 146e4cc05..5ebfd95f1 100644
--- a/lib/src/romance/ExtraRomance.gf
+++ b/lib/src/romance/ExtraRomance.gf
@@ -33,4 +33,6 @@ incomplete concrete ExtraRomance of ExtraRomanceAbs = CatRomance **
 
     CompIQuant iq = {s = \\aa => iq.s ! aa.n ! aa.g ! Nom} ;
 
+    PrepCN prep cn = {s = prep.s ++ prepCase prep.c ++ cn.s ! Sg} ;
+    
 } 
diff --git a/lib/src/romance/ExtraRomanceAbs.gf b/lib/src/romance/ExtraRomanceAbs.gf
index c4a3dc9ac..f6d97ba2d 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,CompIQuant,IQuant,IComp] ** {
+  VV,VP,Conj,Pron,ProDrop,CompIQuant,IQuant,IComp,PrepCN,CN,Prep,Adv] ** {
 
   fun 
     TPasseSimple : Tense ; --# notpresent