--- a/HashStream.st	Tue Jan 10 17:11:13 2012 +0100
+++ b/HashStream.st	Tue Jan 10 22:36:49 2012 +0100
@@ -129,7 +129,7 @@
     "test against testVector"
 
     self testVector do:[:pair |
-        |data expectedHash expectedHashBytes hashStream|
+        |data expectedHash expectedHashBytes computedHash hashStream|
 
         data := pair first.
         expectedHash := pair second.
@@ -140,11 +140,13 @@
         ].
 
         "/ non-stream interface must be implemented by all
-        self assert:(self hashValueOf:data) = expectedHashBytes message:'Test failed'.
+        computedHash := self hashValueOf:data.
+        self assert:computedHash = expectedHashBytes message:'Test failed'.
         self canStream ifTrue:[
             hashStream := self new.
             hashStream nextPut:data.
-            self assert:hashStream hashValue = expectedHashBytes message:'Test failed'
+            computedHash := hashStream hashValue.
+            self assert:computedHash = expectedHashBytes message:'Test failed'
         ].
     ].
 
@@ -153,6 +155,8 @@
         SHA1Stream test.
         RipeMD160Stream test.
     "
+
+    "Modified: / 10-01-2012 / 22:35:17 / cg"
 !
 
 testVector
@@ -374,9 +378,9 @@
 !HashStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/HashStream.st,v 1.21 2012-01-09 21:30:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/HashStream.st,v 1.22 2012-01-10 21:36:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/HashStream.st,v 1.21 2012-01-09 21:30:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/HashStream.st,v 1.22 2012-01-10 21:36:49 cg Exp $'
 ! !