diff --git a/lib/src/english/NounEng.gf b/lib/src/english/NounEng.gf
index 28b9dfe8b..9f58f5a93 100644
--- a/lib/src/english/NounEng.gf
+++ b/lib/src/english/NounEng.gf
@@ -22,7 +22,7 @@ concrete NounEng of Noun = CatEng ** open MorphoEng, ResEng, Prelude in {
       } ;
 
     RelNP np rs = {
-      s = \\c => np.s ! c ++ "," ++ rs.s ! np.a ;
+      s = \\c => np.s ! c ++ "," ++ rs.s ! np.a ++ finalComma ;
       a = np.a
       } ;
 
diff --git a/lib/src/english/ParseEng.gf b/lib/src/english/ParseEng.gf
index cada5b118..329944ba2 100644
--- a/lib/src/english/ParseEng.gf
+++ b/lib/src/english/ParseEng.gf
@@ -133,7 +133,7 @@ lin
   } ;
 
   ApposNP np1 np2 = {
-    s = \\c => np1.s ! c ++ "," ++ np2.s ! npNom ;
+    s = \\c => np1.s ! c ++ "," ++ np2.s ! npNom ++ finalComma ;
     a = np1.a
   } ;
   
diff --git a/lib/src/english/ResEng.gf b/lib/src/english/ResEng.gf
index fa6d2031e..fd2845f13 100644
--- a/lib/src/english/ResEng.gf
+++ b/lib/src/english/ResEng.gf
@@ -523,5 +523,6 @@ resource ResEng = ParamX ** open Prelude in {
               }
       } ;
 
+  finalComma : Str = pre {"," | "." => []; "" => ","; _ => []} ;
 
 }