--- a/SyntaxHighlighter.st	Wed Apr 01 11:19:46 1998 +0200
+++ b/SyntaxHighlighter.st	Wed Apr 01 11:20:08 1998 +0200
@@ -62,6 +62,9 @@
     parser sourceText:(text := aString asText).
 
     tree := parser parseMethod.
+    tree == #Error ifTrue:[
+text emphasizeFrom:(parser sourceStream position) to:text size with:(#color->Color red).
+    ].
     ^ text
 
     "
@@ -74,7 +77,7 @@
         in:UndefinedObject
     "
 
-    "Modified: / 31.3.1998 / 14:31:26 / cg"
+    "Modified: / 31.3.1998 / 23:43:56 / cg"
 ! !
 
 !SyntaxHighlighter methodsFor:'accessing'!
@@ -277,5 +280,5 @@
 !SyntaxHighlighter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.2 1998-03-31 17:58:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.3 1998-04-01 09:20:08 cg Exp $'
 ! !