--- a/VariableNode.st	Tue Oct 25 22:04:51 2011 +0200
+++ b/VariableNode.st	Tue Oct 25 23:46:51 2011 +0200
@@ -645,7 +645,7 @@
             ] ifFalse:[
                 aStream nextPut:#storeOuterBlockLocal; nextPut:deltaLevel
             ].
-            aStream nextPut:bvIdx.
+            aStream nextPut:bvIdx-1.
             ^ self
         ].
 
@@ -725,7 +725,7 @@
     self error:'bad assignment'
 
     "Created: / 25-06-1997 / 16:14:40 / cg"
-    "Modified (comment): / 25-10-2011 / 22:02:23 / cg"
+    "Modified: / 25-10-2011 / 23:41:59 / cg"
 ! !
 
 !VariableNode methodsFor:'enumerating'!
@@ -1028,9 +1028,9 @@
 !VariableNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.80 2011-10-25 20:04:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.81 2011-10-25 21:46:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.80 2011-10-25 20:04:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.81 2011-10-25 21:46:51 cg Exp $'
 ! !