--- a/Integer.st	Sun Jan 27 17:23:01 2008 +0100
+++ b/Integer.st	Mon Feb 04 10:24:30 2008 +0100
@@ -2144,7 +2144,6 @@
 ! !
 
 
-
 !Integer methodsFor:'misc math'!
 
 acker:n
@@ -2841,6 +2840,26 @@
     "Modified: / 7.9.2001 / 13:58:29 / cg"
 !
 
+printOn:aStream thousandsSeparator:thousandsSeparator
+    self > 999 ifTrue:[
+        (self // 1000) printOn:aStream thousandsSeparator:thousandsSeparator.
+        thousandsSeparator printOn:aStream.
+        (self truncated \\ 1000) printOn:aStream leftPaddedTo:3 with:$0.
+        ^ self.
+    ].
+    self printOn:aStream.
+
+    "
+     1000000 printOn:Transcript thousandsSeparator:$'
+     12345678 printOn:Transcript thousandsSeparator:$'
+     1234567 printOn:Transcript thousandsSeparator:$'
+     123456 printOn:Transcript thousandsSeparator:$'
+     12345 printOn:Transcript thousandsSeparator:$'
+     1234 printOn:Transcript thousandsSeparator:$'
+     123 printOn:Transcript thousandsSeparator:$'
+    "
+!
+
 printRomanOn:aStream
     "print the receiver as roman number to the receiver, aStream.
      This converts correct (i.e. prefix notation for 4,9,40,90, etc.)."
@@ -3528,7 +3547,7 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.192 2008-01-07 13:35:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.193 2008-02-04 09:24:30 cg Exp $'
 ! !
 
 Integer initialize!