--- a/ByteArray.st	Mon Jul 12 06:58:22 2010 +0100
+++ b/ByteArray.st	Mon Jul 12 17:20:36 2010 +0100
@@ -173,6 +173,7 @@
     "Modified: 23.4.1996 / 15:56:25 / cg"
 ! !
 
+
 !ByteArray methodsFor:'Compatibility-Squeak'!
 
 bitXor:aByteArray
@@ -2588,8 +2589,12 @@
     |s|
 
     s := '' writeStream.
-    self do:[:byte|
-	byte printOn:s base:16 size:2 fill:$0.
+    self do:[:byteOrCharacter |
+        |byte|
+        byte := byteOrCharacter isCharacter 
+                    ifTrue:[byteOrCharacter codePoint] 
+                    ifFalse:[byteOrCharacter].
+        byte printOn:s base:16 size:2 fill:$0.
     ].
     ^ s contents.
 
@@ -2600,6 +2605,8 @@
     "
      ByteArray fromHexString:#[1 2 3 4 10 17] hexPrintString
     "
+
+    "Modified: / 03-07-2010 / 01:59:19 / cg"
 !
 
 hexPrintStringWithSeparator:aSeparatorStringOrCharacter
@@ -2923,6 +2930,7 @@
     "
 ! !
 
+
 !ByteArray methodsFor:'searching'!
 
 indexOf:aByte startingAt:start
@@ -2978,6 +2986,7 @@
     "
 ! !
 
+
 !ByteArray methodsFor:'testing'!
 
 isByteArray
@@ -3005,16 +3014,17 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ByteArray.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+    ^ '$Id: ByteArray.st 10544 2010-07-12 16:20:36Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.201 2010/04/14 08:33:59 cg Exp §'
+    ^ 'Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.202 2010/07/03 00:00:40 cg Exp '
 !
 
 version_SVN
-    ^ '$Id: ByteArray.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+    ^ '$Id: ByteArray.st 10544 2010-07-12 16:20:36Z vranyj1 $'
 ! !
 
 
 
+