--- a/HashStream.st	Tue Mar 22 08:03:27 2016 +0000
+++ b/HashStream.st	Wed Mar 23 07:50:28 2016 +0000
@@ -398,8 +398,8 @@
     ].
 
     anObject isCharacter ifTrue:[
-        "/ only ascii allowed !!
-        self nextPutBytes:(ByteArray with:anObject codePoint).
+        "/ only 8bit chars are allowed !!
+        self nextPutBytes:1 from:(ByteArray with:anObject codePoint) startingAt:1.
         ^ self.
     ].