--- smalltalk-2.3.1/compiler/STCompiler.st	2006-02-05 12:41:19.000000000 -0600
+++ smalltalk/compiler/STCompiler.st	2006-12-29 22:59:05.000000000 -0600
@@ -450,6 +449,13 @@
 
 !STCompiler methodsFor: 'visiting RBArrayConstructorNodes'!
 
+acceptArrayNode: aNode
+    "RBArrayConstructorNode>>#visitNode: actually calls this method,
+     which we'll forward to the right one until all the other
+     acceptArrayNode: methods are surely gone."
+    ^self acceptArrayConstructorNode: aNode
+!
+
 acceptArrayConstructorNode: aNode
     "STArrayNode is the parse node class for {...} style array constructors.
      It is compiled like a normal inlined block, but with the statements
@@ -469,7 +475,7 @@
 	each acceptVisitor: self.
 	self
 	    depthDecr: 1;
-	    compileByte: PopStoreIntoArray arg: index.
+	    compileByte: PopStoreIntoArray arg: index - 1.
     ]
 ! !