--- a/SHA1Stream.st	Sun Dec 25 11:35:01 2011 +0100
+++ b/SHA1Stream.st	Mon Dec 26 10:56:58 2011 +0100
@@ -440,7 +440,7 @@
 !SHA1Stream class methodsFor:'testing'!
 
 testVector
-    "Test Vectors (from FIPS PUB 180-1)"
+    "Test Vectors (from FIPS PUB 180-1 and Wikipedia page)"
 
     ^ #(
         ('Franz jagt im komplett verwahrlosten Taxi quer durch Bayern'
@@ -467,6 +467,8 @@
     "
      self test
     "
+
+    "Modified (comment): / 26-12-2011 / 10:56:46 / cg"
 ! !
 
 !SHA1Stream methodsFor:'initialization'!
@@ -682,11 +684,11 @@
 !SHA1Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.19 2010-04-13 14:36:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.20 2011-12-26 09:56:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.19 2010-04-13 14:36:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.20 2011-12-26 09:56:58 cg Exp $'
 ! !
 
 SHA1Stream initialize!