--- a/SyntaxHighlighter.st	Thu Oct 07 18:43:29 1999 +0200
+++ b/SyntaxHighlighter.st	Thu Oct 14 16:06:59 1999 +0200
@@ -370,8 +370,10 @@
     "Created: / 31.3.1998 / 18:09:22 / cg"
 !
 
-markFrom:pos1 to:pos2 withEmphasis:fontEmp color:clr
-    |e p2|
+markFrom:pos1 to:pos2 withEmphasis:fontEmp color:clrIn
+    |e p2 clr|
+
+    clr := clrIn onDevice:Screen current.
 
     clr = Color black ifTrue:[
         e := fontEmp
@@ -639,5 +641,5 @@
 !SyntaxHighlighter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.28 1999-09-25 16:57:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.29 1999-10-14 14:06:59 cg Exp $'
 ! !