diff --git a/lib/resource/catalan/MorphoCat.gf b/lib/resource/catalan/MorphoCat.gf
index abcb757cf..a1a77e253 100644
--- a/lib/resource/catalan/MorphoCat.gf
+++ b/lib/resource/catalan/MorphoCat.gf
@@ -110,10 +110,10 @@ oper
        Aton Acc => le ;
        Aton (CPrep P_a) => lui ;
        Aton q       => prepCase q ++ Lui ; ---- GF bug with c or p! 
-       Poss {n = Sg ; g = Masc} => son ;
-       Poss {n = Sg ; g = Fem}  => sa ;
-       Poss {n = Pl ; g = Masc} => ses ;
-       Poss {n = Pl ; g = Fem}  => see
+       Poss Masc Sg => son ;
+       Poss Fem Sg  => sa ;
+       Poss Masc Pl => ses ;
+       Poss Fem Pl  => see
        } ;
      a = {g = g ; n = n ; p = p} ;
      hasClit = True
diff --git a/lib/resource/french/MorphoFre.gf b/lib/resource/french/MorphoFre.gf
index 96ce22850..586755249 100644
--- a/lib/resource/french/MorphoFre.gf
+++ b/lib/resource/french/MorphoFre.gf
@@ -169,9 +169,9 @@ oper
        Aton Acc => le ; 
        Aton (CPrep P_de) => "en" ; --- hmm
        Aton (CPrep _) => lui ; 
-       Poss {n = Sg ; g = Masc} => son ;
-       Poss {n = Sg ; g = Fem}  => sa ;
-       Poss {n = Pl}    => ses
+       Poss Masc Sg => son ;
+       Poss Fem Sg  => sa ;
+       Poss _ Pl    => ses
        } ;
      a = {g = g ; n = n ; p = p} ;
      hasClit = True
diff --git a/lib/resource/italian/MorphoIta.gf b/lib/resource/italian/MorphoIta.gf
index 669e1300b..ff2b884a1 100644
--- a/lib/resource/italian/MorphoIta.gf
+++ b/lib/resource/italian/MorphoIta.gf
@@ -146,10 +146,10 @@ oper
        Aton (CPrep P_di) => "ne" ; --- hmm
        Aton (CPrep P_a) => lui ;
        Aton q       => prepCase q ++ Lui ; ---- GF bug with c or p!
-       Poss {n = Sg ; g = Masc} => son ;
-       Poss {n = Sg ; g = Fem}  => sa ;
-       Poss {n = Pl ; g = Masc} => ses ;
-       Poss {n = Pl ; g = Fem}  => see
+       Poss Masc Sg => son ;
+       Poss Fem Sg  => sa ;
+       Poss Masc Pl => ses ;
+       Poss Fem Pl  => see
        } ;
      a = {g = g ; n = n ; p = p} ;
      hasClit = True
diff --git a/lib/resource/romance/DiffRomance.gf b/lib/resource/romance/DiffRomance.gf
index 70dd40943..7f43f7639 100644
--- a/lib/resource/romance/DiffRomance.gf
+++ b/lib/resource/romance/DiffRomance.gf
@@ -53,7 +53,7 @@ interface DiffRomance = open CommonRomance, Prelude in {
 
 --2 Constants that must derivatively depend on language
 
-  param NPForm = Ton Case | Aton Case | Poss {g : Gender ; n : Number} ; --- AAgr
+  param NPForm = Ton Case | Aton Case | Poss Gender Number ; --- AAgr
 
   oper dative   : Case ;
   oper genitive : Case ;
diff --git a/lib/resource/romance/NounRomance.gf b/lib/resource/romance/NounRomance.gf
index 9b17766b1..b505cb5ca 100644
--- a/lib/resource/romance/NounRomance.gf
+++ b/lib/resource/romance/NounRomance.gf
@@ -79,7 +79,7 @@ incomplete concrete NounRomance of Noun =
         } ;
 
     PossPron p = {
-      s = \\n,g,c => possCase g n c ++ p.s ! Poss (aagr g n) ---- il mio!
+      s = \\n,g,c => possCase g n c ++ p.s ! Poss g n ---- il mio!
       } ;
 
     NumSg = {s = \\_ => [] ; isNum = False ; n = Sg} ;
diff --git a/lib/resource/romance/ResRomance.gf b/lib/resource/romance/ResRomance.gf
index 198db0c2b..73ec6c8db 100644
--- a/lib/resource/romance/ResRomance.gf
+++ b/lib/resource/romance/ResRomance.gf
@@ -28,7 +28,7 @@ oper
 
   npform2case : NPForm -> Case = \p -> case p of {
     Ton  x => x ;
-    Poss _ => genitive ;
+    Poss _ _ => genitive ;
     Aton x => x
     } ;
 
diff --git a/lib/resource/spanish/MorphoSpa.gf b/lib/resource/spanish/MorphoSpa.gf
index cb33777c9..4868758df 100644
--- a/lib/resource/spanish/MorphoSpa.gf
+++ b/lib/resource/spanish/MorphoSpa.gf
@@ -101,10 +101,10 @@ oper
        Aton Acc => le ;
        Aton (CPrep P_a) => lui ;
        Aton q       => prepCase q ++ Lui ; ---- GF bug with c or p! 
-       Poss {n = Sg ; g = Masc} => son ;
-       Poss {n = Sg ; g = Fem}  => sa ;
-       Poss {n = Pl ; g = Masc} => ses ;
-       Poss {n = Pl ; g = Fem}  => see
+       Poss Masc Sg => son ;
+       Poss Fem  Sg => sa ;
+       Poss Masc Pl => ses ;
+       Poss Fem Pl => see
        } ;
      a = {g = g ; n = n ; p = p} ;
      hasClit = True