--- wordlist.orig/scowl/src/add-affixes 2012-10-11 13:05:58.864864580 +0100 +++ wordlist/scowl/src/add-affixes 2012-10-11 14:11:05.144908897 +0100 @@ -74,6 +74,15 @@ @a = grep {not $remove{"$w:$p:$_"}} @a; next unless @a; $lookup{$w} .= join("\n",@a)."\n"; + next unless $p eq 'N'; + + # For irregular nouns that have plurals that do not end in s + # then add the possessive form of the plural as well + foreach (@a) { + next unless (substr($_,-1,1) ne 's'); + $possessive{$_} = "$_\'s\n"; + $lookup{$w} .= $possessive{$_}; + } } unless ($no_possessive) {