--- a/Scanner.st	Thu Feb 12 22:24:59 2004 +0100
+++ b/Scanner.st	Thu Feb 12 22:25:58 2004 +0100
@@ -2485,7 +2485,7 @@
             ] ifFalse:[
                 errMsg := 'Scanner - invalid character: ' , (v radixPrintStringRadix:16) , '.'.
             ].
-            v > 16rFF ifTrue:[
+            v > 16r7F ifTrue:[
                 errMsg := errMsg , '\\Notice: only 7-bit ascii allowed (for compatibility).' withCRs.
             ].
             self syntaxError:errMsg position:tokenPosition to:tokenPosition.
@@ -2675,7 +2675,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.180 2004-02-12 21:24:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.181 2004-02-12 21:25:58 cg Exp $'
 ! !
 
 Scanner initialize!