--- a/Scanner.st	Mon May 10 10:54:11 2004 +0200
+++ b/Scanner.st	Wed May 12 23:52:01 2004 +0200
@@ -166,7 +166,7 @@
     TypeArray at:($| codePoint) put:nil.
 
     block := [:s :char | s nextToken:char].
-    #( $; $. $( $) $[ $] $^ $| $_ ${ $} ) do:[:ch |
+    ';.^|()[]{}' do:[:ch |
         ActionArray at:(ch codePoint) put:block
     ].
 
@@ -1909,7 +1909,7 @@
 !
 
 nextIdentifier
-    "an alpha character (or underscor if AllowUnderscore) has been read.
+    "an alpha character (or underscore if AllowUnderscore) has been read.
      Return the next identifier."
 
     |nextChar string ok pos ch2|
@@ -2696,7 +2696,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.188 2004-05-10 08:54:11 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.189 2004-05-12 21:52:01 stefan Exp $'
 ! !
 
 Scanner initialize!