--- a/Integer.st	Thu Feb 01 12:34:25 2001 +0100
+++ b/Integer.st	Tue Feb 06 12:11:02 2001 +0100
@@ -2056,7 +2056,12 @@
     "return a hex string representation of the receiver,
      padded to size characters"
 
-    ^ (self printStringRadix:16) leftPaddedTo:size with:$0
+"/    ^ (self printStringRadix:16) leftPaddedTo:size with:$0
+    ^ self printStringRadix:16 size:size fill:$0
+
+    "
+     12345 hexPrintString:4  
+    "
 
     "Created: 18.2.1997 / 13:32:33 / cg"
 !
@@ -2638,6 +2643,6 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.134 2001-01-16 11:28:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.135 2001-02-06 11:11:02 cg Exp $'
 ! !
 Integer initialize!