--- a/TextCollector.st	Mon May 29 15:30:55 2017 +0200
+++ b/TextCollector.st	Tue May 30 13:59:53 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1159,13 +1157,12 @@
 !
 
 color:aColor
-    aColor isNil ifTrue:[
-        currentEmphasis := Text removeEmphasis:#color from:currentEmphasis
-    ] ifFalse:[
+    currentEmphasis := Text removeEmphasis:#color from:currentEmphasis.
+    aColor notNil ifTrue:[
         currentEmphasis := Text addEmphasis:(#color->aColor) to:currentEmphasis
     ].
 
-    "Modified: / 26.3.1999 / 14:29:21 / cg"
+    "Modified: / 30-05-2017 / 09:37:26 / cg"
 !
 
 italic