--- a/HashStream.st Mon Aug 26 23:13:47 2019 +0200
+++ b/HashStream.st Mon Aug 26 23:19:16 2019 +0200
@@ -423,18 +423,18 @@
anObject isByteCollection ifTrue:[
self nextPutBytes:(anObject byteSize) from:anObject startingAt:1.
- ^ self.
+ ^ anObject.
].
anObject isCharacter ifTrue:[
"/ only 8bit chars are allowed !!
self nextPutBytes:1 from:(ByteArray with:anObject codePoint) startingAt:1.
- ^ self.
+ ^ anObject.
].
anObject isInteger ifTrue:[
self nextPutBytes:anObject digitBytes.
- ^ self.
+ ^ anObject.
].
ArgumentError raise