--- a/Scanner.st	Fri May 17 10:54:22 2002 +0200
+++ b/Scanner.st	Fri Jun 07 14:47:01 2002 +0200
@@ -1456,7 +1456,7 @@
 
     nextChar := source nextPeek.
     nextChar notNil ifTrue:[
-        (nextChar isLetterOrDigit
+        (nextChar isLetter
         or:[(allowUnderscoreInIdentifier == true) and:[nextChar == $_]]) ifTrue:[
             string := ''.
             [nextChar notNil 
@@ -2281,6 +2281,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.140 2002-05-03 12:15:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.141 2002-06-07 12:47:01 cg Exp $'
 ! !
 Scanner initialize!