--- a/Scanner.st	Thu Jul 25 15:20:33 2002 +0200
+++ b/Scanner.st	Thu Jul 25 16:03:20 2002 +0200
@@ -1445,6 +1445,8 @@
         HashLeftBrack     (for '#['), 
         HashLeftBrace     (for '#{'  and AllowQualifiedNames)
         HashHashLeftParen (for '##(' and AllowDolphinExtensions)
+        HashHashLeftBrack (for '##[' )
+        HashHash          (for '##' )
     "
 
     |nextChar string part|
@@ -1548,7 +1550,7 @@
                 nextChar == $[ ifTrue:[
                     source next.    
                     token := '##('.
-                    tokenType := #HashHashLeftBracket.
+                    tokenType := #HashHashLeftBrack.
                     ^ tokenType
                 ].
                 token := '##'.
@@ -2283,6 +2285,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.145 2002-07-25 13:20:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.146 2002-07-25 14:03:20 cg Exp $'
 ! !
 Scanner initialize!