--- a/SmallSense__SmalltalkSyntaxHighlighter.st	Sat Oct 21 23:16:51 2017 +0200
+++ b/SmallSense__SmalltalkSyntaxHighlighter.st	Tue Jan 02 20:03:15 2018 +0100
@@ -153,23 +153,23 @@
     text emphasisCollection:(text emphasis asRunArray).
 
     tree == #Error ifTrue:[
-	"/ mhmh - which is better ...
-	"/ alternative1: color rest after error in red
+        "/ mhmh - which is better ...
+        "/ alternative1: color rest after error in red
 "/        text
 "/            emphasizeFrom:(parser sourceStream position)
 "/            to:text size
 "/            with:(#color->Color red).
 
 
-	"/ alternative2: take original emphasis for rest
+        "/ alternative2: take original emphasis for rest
 
-	endPos := parser sourceStream position1Based.
-	endPos >= text size ifTrue:[
-	    ^ text
-	].
-	^ ((text copyTo:endPos) , (aString copyFrom:(endPos+1))).
+        endPos := parser sourceStream position+1.
+        endPos >= text size ifTrue:[
+            ^ text
+        ].
+        ^ ((text copyTo:endPos) , (aString copyFrom:(endPos+1))).
 
-	"/ alternative3: no emphasis for rest.
+        "/ alternative3: no emphasis for rest.
 
 "/        ^ text "/ aString
     ].
@@ -177,12 +177,13 @@
 
     "
      self
-	formatExpression:'(1 + 2) max:5'
-	in:UndefinedObject
+        formatExpression:'(1 + 2) max:5'
+        in:UndefinedObject
     "
 
     "Created: / 25-07-2010 / 08:56:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 25-07-2010 / 10:57:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 02-01-2018 / 20:02:34 / stefan"
 !
 
 formatMethod:aString in:aClass using:preferencesOrNil elementsInto: elements