--- a/SyntaxHighlighter.st	Fri Jan 12 16:34:04 2001 +0100
+++ b/SyntaxHighlighter.st	Wed Jan 24 17:15:25 2001 +0100
@@ -128,6 +128,7 @@
     aString isNil ifTrue:[^ nil].
 
     Error handle:[:ex |
+        ('SyntaxHighlighter [info]: error during highlight: ' , ex errorString) infoPrintCR.
         ^ aString
     ] do:[
         parser := self for:(ReadStream on:aString string) in:aClass.
@@ -391,6 +392,8 @@
     ].
     (p2 := pos2) isNil ifTrue:[
         p2 := sourceText size
+    ] ifFalse:[
+        p2 := p2 min:sourceText size
     ].
     sourceText emphasizeFrom:pos1 to:p2 with:e
 
@@ -646,5 +649,5 @@
 !SyntaxHighlighter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.32 2000-12-18 22:12:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.33 2001-01-24 16:15:25 cg Exp $'
 ! !