diff --git a/src/scandinavian/ResScand.gf b/src/scandinavian/ResScand.gf
index b4c78a97c..98f298c42 100644
--- a/src/scandinavian/ResScand.gf
+++ b/src/scandinavian/ResScand.gf
@@ -86,6 +86,4 @@ interface ResScand = DiffScand ** open CommonScand, Prelude in {
     isSimple = True
     } ;
 
-  comma : Str = SOFT_BIND ++ "," ;
-
 }
diff --git a/src/scandinavian/VerbScand.gf b/src/scandinavian/VerbScand.gf
index 16376b12c..ab9742255 100644
--- a/src/scandinavian/VerbScand.gf
+++ b/src/scandinavian/VerbScand.gf
@@ -79,6 +79,6 @@ incomplete concrete VerbScand of Verb = CatScand ** open CommonScand, ResScand,
 
     AdvVPSlash vps adv = insertAdv adv.s vps ** {c2 = vps.c2 ; n3 = vps.n3} ;
     AdVVPSlash adv vps = insertAdV adv.s vps ** {c2 = vps.c2 ; n3 = vps.n3} ;
-    ExtAdvVP vp adv = insertExt (comma ++ adv.s) vp ;
+    ExtAdvVP vp adv = insertExt (bindComma ++ adv.s) vp ;
 
 }