--- a/Scanner.st	Thu Jun 12 13:08:56 2003 +0200
+++ b/Scanner.st	Fri Jun 13 20:42:21 2003 +0200
@@ -1723,7 +1723,7 @@
                     [nextChar == $_] whileTrue:[
                         string := string copyWith:nextChar.
                         nextChar := source nextPeek.
-                        (nextChar isAlphaNumeric) ifTrue:[
+                        (nextChar isLetterOrDigit) ifTrue:[
                             string := string , source nextAlphaNumericWord.
                             nextChar := source peek.
                         ]
@@ -1871,7 +1871,7 @@
         "/
         nextChar := source nextPeek.
         allowOldStyleAssignment ifTrue:[
-            (nextChar isAlphaNumeric or:[nextChar == $_]) ifFalse:[
+            (nextChar isLetterOrDigit or:[nextChar == $_]) ifFalse:[
                 "oops: a single underscore is an old-style assignement"
                 nextChar ~~ $: ifTrue:[
                     self warnOldStyleAssignmentAt:tokenPosition.
@@ -1886,7 +1886,7 @@
             string := string copyWith:$_.
             nextChar := source nextPeek.
         ].
-        nextChar isAlphaNumeric ifTrue:[
+        nextChar isLetterOrDigit ifTrue:[
             string := string , source nextAlphaNumericWord.
         ]
     ] ifFalse:[
@@ -1910,7 +1910,7 @@
                 nextChar isNil ifTrue:[
                     ok := false
                 ] ifFalse:[
-                    (nextChar isAlphaNumeric) ifTrue:[
+                    (nextChar isLetterOrDigit) ifTrue:[
                         string := string , source nextAlphaNumericWord.
                         nextChar := source peekOrNil.
                     ].
@@ -2612,7 +2612,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.169 2003-06-04 09:32:58 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.170 2003-06-13 18:42:21 cg Exp $'
 ! !
 
 Scanner initialize!