--- a/TextStream.st	Fri Jan 21 00:15:41 2011 +0100
+++ b/TextStream.st	Fri Jan 28 13:49:21 2011 +0100
@@ -127,12 +127,16 @@
 contents
     "return the streams collected contents"
 
+    |stringContents|
+
+    stringContents := super contents.
+
     (currentEmphasis isNil and:[runs isEmptyOrNil]) ifTrue:[
         "no emphasis information: answer a string"
-        ^ super contents
+        ^ stringContents
     ].
     self closeRun.
-    ^ Text string:super contents emphasisCollection:runs
+    ^ Text string:stringContents emphasisCollection:runs
 
     "
      Answer a Text containing unicode characters:
@@ -157,6 +161,8 @@
             nextPutAll:'hello';
             contents.
     "
+
+    "Modified: / 28-01-2011 / 13:46:48 / cg"
 !
 
 emphasis
@@ -238,5 +244,9 @@
 !TextStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/TextStream.st,v 1.12 2008-11-06 11:00:39 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/TextStream.st,v 1.13 2011-01-28 12:49:21 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic2/TextStream.st,v 1.13 2011-01-28 12:49:21 cg Exp $'
 ! !