--- a/Scanner.st	Wed May 16 14:50:00 2018 +0200
+++ b/Scanner.st	Wed May 16 14:50:20 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -143,7 +145,7 @@
 extendedBinarySelectorCharacters
     "return a collection of characters which are optionally allowed in binary selectors"
 
-    "/ ^ '±×·÷«»'.
+    "/ ^ '±×·÷«»'.
     ^ String
 	with:(Character value:16rB1)  "/ plus-minus
 	with:(Character value:16rD7)  "/ times
@@ -1307,6 +1309,11 @@
     "Created: / 1.4.1998 / 13:02:56 / cg"
 !
 
+markErrorFrom:pos1 to:pos2
+
+    "Created: / 31.3.1998 / 13:34:45 / cg"
+!
+
 markStringFrom:pos1 to:pos2
 
     "Created: / 31.3.1998 / 16:37:18 / cg"
@@ -1775,13 +1782,13 @@
 !
 
 warnParagraphAt:position
-    "warn about §-character in an identifier"
+    "warn about §-character in an identifier"
 
     ignoreWarnings ifFalse:[
 	"/ didWarnAboutParagraphInIdentifier ifFalse:[
 	    parserFlags warnParagraphInIdentifier ifTrue:[
 		self
-		    warning:'§-characters in identifiers/symbols are nonportable'
+		    warning:'§-characters in identifiers/symbols are nonportable'
 		    doNotShowAgainAction:[ ParserFlags warnParagraphInIdentifier:false ]
 		    position:position to:position.
 		"
@@ -2810,7 +2817,7 @@
 
     (((nextChar == $_) and:[allowUnderscoreInIdentifier])
     or:[ (allowDollarInIdentifier and:[nextChar == $$ ])
-    or:[ (nextChar == $§ and:[ parserFlags allowParagraphInIdentifier])
+    or:[ (nextChar == $§ and:[ parserFlags allowParagraphInIdentifier])
     or:[ allowNationalCharactersInIdentifier and:[ nextChar notNil and:[nextChar isNationalLetter]]]]]) ifTrue:[
 	pos := source position + 1.
 	nextChar == $_ ifTrue:[
@@ -2819,7 +2826,7 @@
 	    nextChar == $$ ifTrue:[
 		self warnDollarAt:pos.
 	    ] ifFalse:[
-		nextChar == $§ ifTrue:[
+		nextChar == $§ ifTrue:[
 		    self warnParagraphAt:pos.
 		] ifFalse:[
 		    "/ self warnNationalCharacterAt:pos.
@@ -2839,7 +2846,7 @@
 		].
 		ok := ((nextChar == $_) and:[allowUnderscoreInIdentifier])
 		      or:[((nextChar == $$ ) and:[allowDollarInIdentifier])
-		      or:[((nextChar == $§ ) and:[parserFlags allowParagraphInIdentifier])
+		      or:[((nextChar == $§ ) and:[parserFlags allowParagraphInIdentifier])
 		      or:[(nextChar notNil and:[nextChar isNationalLetter]) and:[allowNationalCharactersInIdentifier]]]].
 	    ]
 	].
@@ -3541,7 +3548,7 @@
 		].
 		"/ a nil token means: continue reading
 	    ] ifFalse:[
-		(ch == $§ and:[parserFlags allowParagraphInIdentifier]) ifTrue:[
+		(ch == $§ and:[parserFlags allowParagraphInIdentifier]) ifTrue:[
 		    tok := self nextIdentifier.
 		    tok notNil ifTrue:[
 			^ tok