--- 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
"
!