--- a/LoggingStream.st	Tue Mar 19 20:55:06 2013 +0100
+++ b/LoggingStream.st	Tue Mar 19 20:57:19 2013 +0100
@@ -17,6 +17,13 @@
 
     Unfinished - may need more protocol to be intercepted.
 
+    sample use, logging operations on a socket stream:
+        sock := ... Socket connectTo: ...
+        s := LoggingStream new loggedStream: sock.
+        ...
+        use s instead of sock
+        ...
+
     [author:]
         cg
 
@@ -101,10 +108,10 @@
 !LoggingStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/LoggingStream.st,v 1.3 2013-03-19 19:55:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/LoggingStream.st,v 1.4 2013-03-19 19:57:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/LoggingStream.st,v 1.3 2013-03-19 19:55:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/LoggingStream.st,v 1.4 2013-03-19 19:57:19 cg Exp $'
 ! !