--- a/Scanner.st	Sun Mar 29 15:14:42 2015 +0200
+++ b/Scanner.st	Mon Apr 13 16:56:10 2015 +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
@@ -2355,7 +2357,7 @@
     |code charType|
 
     code := ch codePoint.
-    code > typeArray size ifTrue:[^ false].
+    (code between:1 and: typeArray size) ifFalse:[^ false].
 
     charType := typeArray at:code.
     ^ (charType == #special) 
@@ -3725,11 +3727,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.331 2015-02-07 15:40:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.332 2015-04-13 14:56:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.331 2015-02-07 15:40:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.332 2015-04-13 14:56:10 cg Exp $'
 ! !