--- a/Scanner.st	Tue Jul 20 17:27:04 1999 +0200
+++ b/Scanner.st	Tue Jul 20 17:58:00 1999 +0200
@@ -144,6 +144,9 @@
         ActionArray at:${ asciiValue put:block.
         ActionArray at:$} asciiValue put:block.
     ].
+    AllowQualifiedNames ifTrue:[
+        ActionArray at:$} asciiValue put:block.
+    ].
 
     block := [:s :char | s nextIdentifier].
     ($a asciiValue) to:($z asciiValue) do:[:index |
@@ -2014,6 +2017,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.105 1999-07-20 15:27:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.106 1999-07-20 15:58:00 cg Exp $'
 ! !
 Scanner initialize!