diff --git a/lib/src/english/SentenceEng.gf b/lib/src/english/SentenceEng.gf
index c1679bdbc..6717d4b4f 100644
--- a/lib/src/english/SentenceEng.gf
+++ b/lib/src/english/SentenceEng.gf
@@ -58,7 +58,7 @@ concrete SentenceEng of Sentence = CatEng ** open Prelude, ResEng in {
 
     AdvS a s = {s = a.s ++ "," ++ s.s} ;
 
-    SSubjS a s b = {s = a.s ++ "," ++ s.s ++ b.s} ;
+    SSubjS a s b = {s = a.s ++ s.s ++ b.s} ;
 
     RelS s r = {s = s.s ++ "," ++ r.s ! agrP3 Sg} ;
 
diff --git a/lib/src/romance/SentenceRomance.gf b/lib/src/romance/SentenceRomance.gf
index 00958e4f4..55e3423b1 100644
--- a/lib/src/romance/SentenceRomance.gf
+++ b/lib/src/romance/SentenceRomance.gf
@@ -69,7 +69,7 @@ incomplete concrete SentenceRomance of Sentence =
 
     AdvS a s = {s = \\o => a.s ++ "," ++ s.s ! o} ;
 
-    SSubjS a s b = {s = \\m => a.s ! m ++ "," ++ s.s ++ b.s ! s.m} ;
+    SSubjS a s b = {s = \\m => a.s ! m ++ s.s ++ b.s ! s.m} ;
 
     RelS s r = {
       s = \\o => s.s ! o ++ "," ++ partQIndir ++ r.s ! Indic ! agrP3 Masc Sg