fixed the case of substantival possessives in Eng

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
+       }
    } ;
 
 } ;

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} ;