--- a/SHA1Stream.st	Mon Jan 09 22:30:04 2012 +0100
+++ b/SHA1Stream.st	Mon Jan 09 22:47:57 2012 +0100
@@ -440,7 +440,7 @@
 !SHA1Stream class methodsFor:'testing'!
 
 testVector
-    "Test Vectors (from FIPS PUB 180-1 and Wikipedia page)"
+    "/ obsolete - tests moved to TestHashAlgorithms (unit tests)
 
     ^ #(
         ('Franz jagt im komplett verwahrlosten Taxi quer durch Bayern'
@@ -468,7 +468,7 @@
      self test
     "
 
-    "Modified (comment): / 26-12-2011 / 10:56:46 / cg"
+    "Modified (comment): / 09-01-2012 / 21:53:50 / cg"
 ! !
 
 !SHA1Stream methodsFor:'initialization'!
@@ -611,11 +611,11 @@
 !SHA1Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.22 2012-01-09 20:18:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.23 2012-01-09 21:47:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.22 2012-01-09 20:18:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.23 2012-01-09 21:47:57 cg Exp $'
 ! !
 
 SHA1Stream initialize!