--- a/TextCollector.st	Sun Oct 04 21:08:19 2009 +0200
+++ b/TextCollector.st	Mon Oct 05 11:21:54 2009 +0200
@@ -633,10 +633,9 @@
     "append all of something to my displayed text.
      This allows TextCollectors to be used Stream-wise"
 
-    currentEmphasis notNil ifTrue:[
-        ^ self show:(something emphasizeAllWith:currentEmphasis)
-    ].
-    ^ self show:something
+    self show:(currentEmphasis notNil 
+                ifTrue:[something emphasizeAllWith:currentEmphasis]
+                ifFalse:[something])
 
     "Modified: 11.1.1997 / 14:43:26 / cg"
 !
@@ -850,7 +849,11 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.95 2009-03-15 12:31:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.96 2009-10-05 09:21:54 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.96 2009-10-05 09:21:54 cg Exp $'
 ! !
 
 TextCollector initialize!