--- a/SyntaxHighlighter.st	Wed Aug 01 16:48:10 2001 +0200
+++ b/SyntaxHighlighter.st	Wed Aug 01 19:01:56 2001 +0200
@@ -129,7 +129,7 @@
 
     Error handle:[:ex |
         ('SyntaxHighlighter [info]: error during highlight: ' , ex errorString) infoPrintCR.
-        "/ ex suspendedContext fullPrintAll.
+        ex suspendedContext fullPrintAll.
         ^ aString
     ] do:[
         parser := self for:(ReadStream on:aString string) in:aClass.
@@ -199,13 +199,12 @@
 !SyntaxHighlighter methodsFor:'error handling'!
 
 parseError:aMessage position:position to:endPos
+Transcript showCR:aMessage.
     super parseError:aMessage position:position to:endPos.
 
     self 
         markFrom:position to:endPos 
         withEmphasis:nil color:UserPreferences current errorColor
-
-
 !
 
 showErrorMessage:aMessage position:pos
@@ -219,6 +218,15 @@
 
 !
 
+syntaxError:aMessage position:position to:endPos
+Transcript showCR:aMessage.
+    super syntaxError:aMessage position:position to:endPos.
+
+    self 
+        markFrom:position to:endPos 
+        withEmphasis:nil color:UserPreferences current errorColor
+!
+
 warning:msg position:pos1 to:pos2
 "/    self markUnknownIdentifierFrom:pos1 to:pos2
 
@@ -650,5 +658,5 @@
 !SyntaxHighlighter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.35 2001-07-24 07:56:45 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.36 2001-08-01 17:01:56 cg Exp $'
 ! !