diff --git a/lib/src/english/MorphoEng.gf b/lib/src/english/MorphoEng.gf
index 922aaabba..be3996e29 100644
--- a/lib/src/english/MorphoEng.gf
+++ b/lib/src/english/MorphoEng.gf
@@ -40,7 +40,10 @@ resource MorphoEng = open Prelude, (Predef=Predef), ResEng in {
        NCase Gen => my
        } ;
      a = toAgr n p g ;
-     sp = regGenitiveS mine
+     sp = table {
+       Nom => mine ;
+       _ => genitiveS mine
+       }
    } ;
 
 } ;
diff --git a/lib/src/english/NounEng.gf b/lib/src/english/NounEng.gf
index 7c5e22c30..23c10888f 100644
--- a/lib/src/english/NounEng.gf
+++ b/lib/src/english/NounEng.gf
@@ -61,7 +61,7 @@ concrete NounEng of Noun = CatEng ** open MorphoEng, ResEng, Prelude in {
 
     PossPron p = {
       s = \\_,_ => p.s ! NCase Gen ;
-      sp = \\_,_,c => p.sp ! Gen
+      sp = \\_,_,c => p.sp ! npcase2case c
       } ;
 
     NumSg = {s = \\c => []; n = Sg ; hasCard = False} ;