--- a/SyntaxHighlighter.st	Mon Feb 24 18:17:33 2003 +0100
+++ b/SyntaxHighlighter.st	Tue Feb 25 12:47:23 2003 +0100
@@ -97,7 +97,7 @@
 
         "/ alternative2: take original emphasis for rest
 
-        endPos := parser sourceStream position.
+        endPos := parser sourceStream position1Based.
         endPos >= text size ifTrue:[
             ^ text
         ].
@@ -149,13 +149,13 @@
                 "/ mhmh - which is better ...
                 "/ alternative1: color rest after error in red
                 text 
-                    emphasizeFrom:(parser sourceStream position) 
+                    emphasizeFrom:(parser sourceStream position1Based) 
                     to:text size 
                     with:(#color->eColor).
             ] ifFalse:[
                 "/ alternative2: take original emphasis for rest
 
-                endPos := parser sourceStream position.
+                endPos := parser sourceStream position1Based.
                 endPos >= text size ifTrue:[
                     ^ text
                 ].
@@ -656,5 +656,5 @@
 !SyntaxHighlighter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.40 2003-01-31 15:24:25 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/SyntaxHighlighter.st,v 1.41 2003-02-25 11:45:48 cg Exp $'
 ! !