--- a/Parser.st	Thu May 16 20:24:57 2002 +0200
+++ b/Parser.st	Thu May 16 20:30:28 2002 +0200
@@ -5392,6 +5392,7 @@
 
     self nextToken.
     exprList := self squeakComputedArray.
+    (exprList == #Error) ifTrue:[ ^ #Error ].
 
     tokenType ~~ $} ifTrue:[
         self parseError:'''}'' expected' position:tokenPosition.
@@ -5531,11 +5532,13 @@
             ^ #Error
         ].
         expressions add:elem.
-        tokenType == $. ifTrue:[
-            self nextToken.
-        ] ifFalse:[
+        tokenType == $. ifFalse:[
             ^ expressions
-        ]
+        ].
+        self nextToken.
+        tokenType == $} ifTrue:[
+            ^ expressions
+        ].
     ].
     "/ not reached
 !
@@ -6568,6 +6571,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.336 2002-05-16 18:24:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.337 2002-05-16 18:30:28 cg Exp $'
 ! !
 Parser initialize!