--- a/Parser.st	Tue Jul 30 15:55:08 2013 +0200
+++ b/Parser.st	Tue Jul 30 19:38:52 2013 +0200
@@ -5835,9 +5835,9 @@
     |arr elements elem pos1|
 
     pos1 := tokenPosition.
-    elements := OrderedCollection new:20.
+    elements := OrderedCollection new.
     [tokenType ~~ $) ] whileTrue:[
-	elem := self arrayConstant.
+        elem := self arrayConstant.
 
 "/        (elem == #Error) ifTrue:[
 "/            (tokenType == #EOF) ifTrue:[
@@ -5846,11 +5846,11 @@
 "/            ].
 "/            ^ #Error
 "/        ].
-	elem isSymbol ifTrue:[
-	    self markSymbolFrom:tokenPosition to:(source position1Based-1).
-	].
-	elements add:elem.
-	self nextToken.
+        elem isSymbol ifTrue:[
+            self markSymbolFrom:tokenPosition to:(source position1Based-1).
+        ].
+        elements add:elem.
+        self nextToken.
 "/        tokenType == $. ifTrue:[
 "/            self emptyStatement.
 "/        ].
@@ -5858,11 +5858,11 @@
     arr := Array withAll:elements.
 
     parserFlags arraysAreImmutable ifTrue:[
-	^ self makeImmutableArray:arr
+        ^ self makeImmutableArray:arr
     ].
     ^ arr
 
-    "Modified: / 20-11-2006 / 14:07:39 / cg"
+    "Modified: / 30-07-2013 / 19:33:43 / cg"
 !
 
 arrayConstant
@@ -10894,11 +10894,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.769 2013-07-30 13:55:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.770 2013-07-30 17:38:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.769 2013-07-30 13:55:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.770 2013-07-30 17:38:52 cg Exp $'
 !
 
 version_SVN