--- a/Number.st	Mon Nov 07 10:46:40 2016 +0100
+++ b/Number.st	Mon Nov 07 10:49:49 2016 +0100
@@ -1702,7 +1702,7 @@
     "print the receiver as swiss business number with thousands separator to aStream.
      Caveat: Should use the separator from the locale here"
 
-    ^ self printStringWithThousandsSeparator:$'.
+    ^ self printStringWithThousandsSeparator:(UserPreferences current thousandsSeparatorCharacter).
 
     "
      1000000 printStringWithThousandsSeparator
@@ -1721,6 +1721,7 @@
      1234 asFixedPoint printStringWithThousandsSeparator
      123 asFixedPoint printStringWithThousandsSeparator
      ((9999999//10000) asFixedPoint:9) printStringWithThousandsSeparator
+     ((99999999//10000) asFixedPoint:9) printStringWithThousandsSeparator
     "
 !