--- a/Parser.st	Wed Oct 10 18:48:41 2001 +0200
+++ b/Parser.st	Wed Oct 17 15:09:13 2001 +0200
@@ -4822,12 +4822,15 @@
     ].
 
     (tokenType == #HashLeftParen) ifTrue:[
+        self inArrayLiteral:true.
         self nextToken.
         ParseErrorSignal handle:[:ex |
+            self inArrayLiteral:false.
             ^ #Error
         ] do:[
             val := self array.
         ].
+        self inArrayLiteral:false.
         self nextToken.
         (self noAssignmentAllowed:'assignment to a constant' at:pos) ifFalse:[
             ^ #Error
@@ -5987,6 +5990,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.305 2001-10-09 07:41:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.306 2001-10-17 13:09:06 cg Exp $'
 ! !
 Parser initialize!