diff --git a/lib/src/dutch/SentenceDut.gf b/lib/src/dutch/SentenceDut.gf
index eeff08e5d..11f85c3ea 100644
--- a/lib/src/dutch/SentenceDut.gf
+++ b/lib/src/dutch/SentenceDut.gf
@@ -65,4 +65,6 @@ concrete SentenceDut of Sentence = CatDut ** open ResDut, Prelude in {
 
     RelS s r = {s = \\o => s.s ! o ++ "," ++ r.s ! Neutr ! Sg} ;
 
+    SSubjS a s b = {s = \\o => a.s ! o ++ "," ++ s.s ++ b.s ! Sub} ;
+
 }
diff --git a/lib/src/english/SentenceEng.gf b/lib/src/english/SentenceEng.gf
index dbd482cc8..8a13a2ed7 100644
--- a/lib/src/english/SentenceEng.gf
+++ b/lib/src/english/SentenceEng.gf
@@ -59,7 +59,7 @@ concrete SentenceEng of Sentence = CatEng ** open Prelude, ResEng in {
     AdvS a s = {s = a.s ++ s.s} ;
     ExtAdvS 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/scandinavian/SentenceScand.gf b/lib/src/scandinavian/SentenceScand.gf
index d5292dce7..81f68cffb 100644
--- a/lib/src/scandinavian/SentenceScand.gf
+++ b/lib/src/scandinavian/SentenceScand.gf
@@ -62,4 +62,6 @@ incomplete concrete SentenceScand of Sentence =
 
     RelS s r = {s = \\o => s.s ! o ++ "," ++ r.s ! agrP3 Neutr Sg ! RPrep True } ; --- vilket
 
+    SSubjS a s b = {s = \\o => a.s ! o ++ "," ++ s.s ++ b.s ! Sub} ;
+
 }