--- a/SyntaxHighlighter.st	Wed Apr 01 11:21:33 1998 +0200
+++ b/SyntaxHighlighter.st	Wed Apr 01 12:54:35 1998 +0200
@@ -180,11 +180,15 @@
 markFrom:pos1 to:pos2 withEmphasis:fontEmp color:clr
     |e|
 
-    e := Text addEmphasis:fontEmp to:(#color->clr).
+    clr = Color black ifTrue:[
+        e := fontEmp
+    ] ifFalse:[
+        e := Text addEmphasis:fontEmp to:(#color->clr).
+    ].
     sourceText emphasizeFrom:pos1 to:pos2 with:e
 
     "Created: / 31.3.1998 / 13:26:53 / cg"
-    "Modified: / 31.3.1998 / 18:01:02 / cg"
+    "Modified: / 1.4.1998 / 12:51:56 / cg"
 !
 
 markGlobalIdentifierFrom:pos1 to:pos2
@@ -280,5 +284,5 @@
 !SyntaxHighlighter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.3 1998-04-01 09:20:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.4 1998-04-01 10:54:35 cg Exp $'
 ! !