--- a/TextStream.st	Mon Feb 14 18:39:30 2011 +0100
+++ b/TextStream.st	Thu Feb 17 14:13:22 2011 +0100
@@ -193,10 +193,24 @@
        emphasis:#bold;
        nextPutAll:'world'.
      s contents.
-     Transcript showCr:s contents.
+     Transcript showCR:s contents.
     "
 
-    "Modified: / 15-10-2007 / 16:27:31 / cg"
+    "
+     |s|
+
+     s := TextStream on:String new.
+     s emphasis:#italic;
+       nextPutAll:'hello';
+       emphasis:nil;
+       space;
+       emphasis:{#bold. #color->Color red};
+       nextPutAll:'world'.
+     s contents.
+     Transcript showCR:s contents.
+    "
+
+    "Modified: / 17-02-2011 / 14:13:07 / cg"
 !
 
 stringContents
@@ -244,9 +258,9 @@
 !TextStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/TextStream.st,v 1.13 2011-01-28 12:49:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/TextStream.st,v 1.14 2011-02-17 13:13:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/TextStream.st,v 1.13 2011-01-28 12:49:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/TextStream.st,v 1.14 2011-02-17 13:13:22 cg Exp $'
 ! !