--- a/TextStream.st	Fri Jun 19 04:16:08 1998 +0200
+++ b/TextStream.st	Sat Jun 20 17:12:19 1998 +0200
@@ -143,14 +143,16 @@
     "
 !
 
-emphasis:aSymbol
+emphasis:newEmphasis
     "change the emphasis; all followup elements are appended with
      that emphasis in effect"
 
     position ~~ 1 ifTrue:[
-        self closeRun.
+        currentEmphasis ~~ newEmphasis ifTrue:[
+            self closeRun.
+        ]
     ].
-    currentEmphasis := aSymbol
+    currentEmphasis := newEmphasis
 
     "
      |s|
@@ -164,6 +166,8 @@
        nextPutAll:'world'.
      s contents
     "
+
+    "Modified: / 20.6.1998 / 17:11:30 / cg"
 ! !
 
 !TextStream methodsFor:'private'!
@@ -181,5 +185,5 @@
 !TextStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/TextStream.st,v 1.3 1997-08-22 13:16:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/TextStream.st,v 1.4 1998-06-20 15:12:19 cg Exp $'
 ! !