diff --git a/lib/src/bulgarian/NumeralBul.gf b/lib/src/bulgarian/NumeralBul.gf
index 3cf2d64e5..876322480 100644
--- a/lib/src/bulgarian/NumeralBul.gf
+++ b/lib/src/bulgarian/NumeralBul.gf
@@ -95,7 +95,7 @@ lin pot3plus n m = {
     IDig d = d ** {tail = T1} ;
 
     IIDig d i = {
-      s = \\o => d.s ! NCard (CFMasc Indef NonHuman) ++ commaIf i.tail ++ i.s ! o ;
+      s = \\o => d.s ! NCard (CFMasc Indef NonHuman) ++ spaceIf i.tail ++ i.s ! o ;
       n = Pl ;
       tail = inc i.tail
     } ;
@@ -112,9 +112,9 @@ lin pot3plus n m = {
     D_9 = mk3Dig "9" "9има" "9ти" Pl ;
 
   oper
-    commaIf : DTail -> Str = \t -> case t of {
-      T3 => comma ;
-      _ => []
+    spaceIf : DTail -> Str = \t -> case t of {
+      T3 => SOFT_BIND ;
+      _  => BIND
       } ;
 
     inc : DTail -> DTail = \t -> case t of {
diff --git a/lib/src/english/NumeralEng.gf b/lib/src/english/NumeralEng.gf
index 79f9bd97d..7dbce228a 100644
--- a/lib/src/english/NumeralEng.gf
+++ b/lib/src/english/NumeralEng.gf
@@ -1,4 +1,4 @@
-concrete NumeralEng of Numeral = CatEng [Numeral,Digits] ** open ResEng in {
+concrete NumeralEng of Numeral = CatEng [Numeral,Digits] ** open Prelude, ResEng in {
 
 lincat 
   Digit = {s : DForm => CardOrd => Case => Str} ;
@@ -69,8 +69,8 @@ lin pot3plus n m = {
 
   oper
     commaIf : DTail -> Str = \t -> case t of {
-      T3 => frontComma ;
-      _ => []
+      T3 => BIND ++ "," ++ BIND ;
+      _  => BIND
       } ;
 
     inc : DTail -> DTail = \t -> case t of {
diff --git a/lib/src/swedish/NumeralSwe.gf b/lib/src/swedish/NumeralSwe.gf
index 82d4ac0f8..1345defd3 100644
--- a/lib/src/swedish/NumeralSwe.gf
+++ b/lib/src/swedish/NumeralSwe.gf
@@ -50,7 +50,7 @@ lin
     IDig d = d ; 
 
     IIDig d i = {
-      s = \\o => d.s ! NCard neutrum ++ i.s ! o ;
+      s = \\o => d.s ! NCard neutrum ++ BIND ++ i.s ! o ;
       n = Pl
     } ;