--- a/Integer.st	Sat Oct 26 11:22:22 2013 +0100
+++ b/Integer.st	Mon Nov 04 11:11:22 2013 -0300
@@ -3766,6 +3766,20 @@
     "Modified: / 02-08-2010 / 12:24:14 / cg"
 !
 
+printOn:aStream base:baseInteger size:sz 
+    "print a string representation of the receiver in the specified
+     base. The string is padded on the left with fillCharacter to make
+     its size as specified in sz."
+
+    self printOn:aStream base:baseInteger size:sz fill:$0
+
+    "
+     1024 printOn:Transcript base:16 size:4
+     1024 printOn:Transcript base:2 size:16.
+     1024 printOn:Transcript base:16 size:8.
+    "
+!
+
 printOn:aStream base:baseInteger size:sz fill:fillCharacter
     "print a string representation of the receiver in the specified
      base. The string is padded on the left with fillCharacter to make
@@ -4997,11 +5011,11 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.286 2013-09-23 13:11:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.287 2013-09-30 10:44:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.286 2013-09-23 13:11:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.287 2013-09-30 10:44:21 cg Exp $'
 ! !