--- a/HashStream.st	Mon Jan 09 11:09:44 2012 +0100
+++ b/HashStream.st	Mon Jan 09 13:34:45 2012 +0100
@@ -294,12 +294,13 @@
     "Hash streams handle Strings and ByteArrays in nextPut:"
 
     aCollection isByteCollection ifTrue:[
-        self nextPut:aCollection.
+        self nextPutBytes:(aCollection byteSize) from:aCollection startingAt:1.
     ] ifFalse:[
         super nextPutAll:aCollection
     ].
 
-    "Created: / 14.10.1999 / 11:22:50 / stefan"
+    "Created: / 14-10-1999 / 11:22:50 / stefan"
+    "Modified: / 09-01-2012 / 13:02:44 / cg"
 !
 
 nextPutBytes:count from:anObject startingAt:start
@@ -329,9 +330,9 @@
 !HashStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/HashStream.st,v 1.15 2012-01-04 18:55:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/HashStream.st,v 1.16 2012-01-09 12:34:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/HashStream.st,v 1.15 2012-01-04 18:55:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/HashStream.st,v 1.16 2012-01-09 12:34:45 cg Exp $'
 ! !