--- a/HashStream.st	Tue Mar 22 12:52:45 2016 +0100
+++ b/HashStream.st	Tue Mar 22 13:43:57 2016 +0100
@@ -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.
     ].