diff --git a/src/spanish/AllSpa.gf b/src/spanish/AllSpa.gf
index 8ac77b39..e0838c69 100644
--- a/src/spanish/AllSpa.gf
+++ b/src/spanish/AllSpa.gf
@@ -4,5 +4,5 @@ concrete AllSpa of AllSpaAbs =
   LangSpa,
   IrregSpa,
   ExtendSpa
-----  ExtraSpa 
+--  ExtraSpa 
   ** {} ;
diff --git a/src/spanish/ExtraSpa.gf b/src/spanish/ExtraSpa.gf
index edad4a0a..6f65ebe4 100644
--- a/src/spanish/ExtraSpa.gf
+++ b/src/spanish/ExtraSpa.gf
@@ -79,6 +79,7 @@ concrete ExtraSpa of ExtraSpaAbs = ExtraRomanceSpa **
       mkClause [] True False np.a (insertComplement (\\_ => (np.s ! Nom).ton) (predV (mkV "existir"))) ;
 
     UseComp_estar comp = insertComplement comp.s (predV I.estar_V) ;
+    UseComp_ser comp = insertComplement comp.s (predV copula) ;
 
     cual_IComp = {
       s = aagrForms "cual" "cual" "cuáles" "cuáles" ;
diff --git a/src/spanish/ExtraSpaAbs.gf b/src/spanish/ExtraSpaAbs.gf
index 7cab8f28..e7f7239a 100644
--- a/src/spanish/ExtraSpaAbs.gf
+++ b/src/spanish/ExtraSpaAbs.gf
@@ -33,6 +33,7 @@ abstract ExtraSpaAbs = ExtraRomanceAbs ** {
     PassVPSlash_ser : VPSlash -> VP ;
 
     UseComp_estar : Comp -> VP ; -- esta lleno, as opposed to es lleno
+    UseComp_ser : Comp -> VP ; -- es lleno, as opposed to esta lleno
 
     cual_IComp : IComp ; -- cual es ...