--- a/MD5Stream.st	Sun Aug 01 12:11:07 2010 +0100
+++ b/MD5Stream.st	Tue Aug 10 09:55:15 2010 +0100
@@ -84,7 +84,7 @@
 
 examples
 "
-								[exBegin]
+                                                                [exBegin]
     Test Vectors (from FIPS PUB 180-1); results are:
 
     'abc'
@@ -95,22 +95,25 @@
 
     A million repetitions of 'a'
     -> #[77 7 D6 AE 4E 2 7C 70 EE A2 A9 35 C2 29 6F 21]
-								[exEnd]
-
+                                                                [exEnd]
 
-								[exBegin]
+                                                                [exBegin]
+     Transcript showCR:(MD5Stream hashValueOf:'abc') hexPrintString 
+                                                                [exEnd]
+
+                                                                [exBegin]
      (MD5Stream hashValueOf:'abc')
-	printOn:Transcript base:16.
+        printOn:Transcript base:16.
      Transcript cr.
-								[exEnd]
+                                                                [exEnd]
 
-								[exBegin]
+                                                                [exBegin]
      (MD5Stream hashValueOfStream:('abc' readStream))
-	    printOn:Transcript base:16.
+            printOn:Transcript base:16.
      Transcript cr.
-								[exEnd]
+                                                                [exEnd]
 
-								[exBegin]
+                                                                [exBegin]
     |hashStream|
 
     hashStream := MD5Stream new.
@@ -118,9 +121,9 @@
     hashStream hashValue printOn:Transcript base:16. Transcript cr.
     hashStream nextPut:'dbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq'.
     hashStream hashValue printOn:Transcript base:16. Transcript cr.
-								[exEnd]
+                                                                [exEnd]
 
-								[exBegin]
+                                                                [exBegin]
     |hashStream|
 
     hashStream := MD5Stream new.
@@ -129,33 +132,33 @@
     hashStream hashValue printOn:Transcript base:16. Transcript cr.
     hashStream nextPut:'dbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq' asByteArray.
     hashStream hashValue printOn:Transcript base:16. Transcript cr.
-								[exEnd]
+                                                                [exEnd]
 
-								[exBegin]
+                                                                [exBegin]
     |hashStream|
 
     hashStream := MD5Stream new.
     1000000 timesRepeat:[ hashStream nextPut:$a ].
     hashStream hashValue printOn:Transcript base:16. Transcript cr.
-								[exEnd]
+                                                                [exEnd]
 
-								[exBegin]
+                                                                [exBegin]
     |hashStream|
 
     hashStream := MD5Stream new.
     hashStream nextPut:'a'.
     hashStream hashValue printOn:Transcript base:16. Transcript cr.
-								[exEnd]
+                                                                [exEnd]
 
-								[exBegin]
+                                                                [exBegin]
     |hashStream|
 
     hashStream := MD5Stream new.
     hashStream nextPut:$a.
     hashStream hashValue printOn:Transcript base:16. Transcript cr.
-								[exEnd]
+                                                                [exEnd]
 
-								[exBegin]
+                                                                [exBegin]
     |hashStream|
 
     hashStream := MD5Stream new.
@@ -164,23 +167,23 @@
     hashStream reset.
     hashStream nextPut:'abc'.
     hashStream hashValue printOn:Transcript base:16. Transcript cr.
-								[exEnd]
+                                                                [exEnd]
 
   timing throughput:
-								[exBegin]
+                                                                [exBegin]
     |hashStream n t|
 
     hashStream := MD5Stream new.
     n := 1000000.
     t := Time millisecondsToRun:[
-	    n timesRepeat:[
-		hashStream nextPutAll:'12345678901234567890123456789012345678901234567890'.
-	    ].
-	 ].
+            n timesRepeat:[
+                hashStream nextPutAll:'12345678901234567890123456789012345678901234567890'.
+            ].
+         ].
     t := (t / 1000) asFloat.
     Transcript show:t; show:' seconds for '; show:(50*n/1024) asFloat; showCR:' Kb'.
     Transcript show:(n*50/1024 / t); showCR:' Kb/s'
-								[exEnd]
+                                                                [exEnd]
 "
 ! !
 
@@ -452,18 +455,19 @@
 !MD5Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Id: MD5Stream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
+    ^ '$Id: MD5Stream.st 10564 2010-08-10 08:55:15Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/MD5Stream.st,v 1.13 2010/03/04 20:55:03 cg Exp '
+    ^ 'Header: /cvs/stx/stx/libbasic/MD5Stream.st,v 1.14 2010/08/07 17:11:19 cg Exp '
 !
 
 version_SVN
-    ^ '$Id: MD5Stream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
+    ^ '$Id: MD5Stream.st 10564 2010-08-10 08:55:15Z vranyj1 $'
 ! !
 
 MD5Stream initialize!
 
 
 
+