--- a/Integer.st	Mon Feb 04 10:24:30 2008 +0100
+++ b/Integer.st	Mon Feb 04 10:26:55 2008 +0100
@@ -2841,6 +2841,9 @@
 !
 
 printOn:aStream thousandsSeparator:thousandsSeparator
+    "print the receiver as business number with thousands separator to aStream.
+     Notice, that many in the financial world prefer the single quote ' instead of a comma or period."
+
     self > 999 ifTrue:[
         (self // 1000) printOn:aStream thousandsSeparator:thousandsSeparator.
         thousandsSeparator printOn:aStream.
@@ -3547,7 +3550,7 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.193 2008-02-04 09:24:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.194 2008-02-04 09:26:55 cg Exp $'
 ! !
 
 Integer initialize!