diff -r 203df4f28793 -r 04518c7fb91c IRInstVarAccess.st
--- a/IRInstVarAccess.st	Wed Feb 25 16:49:21 2009 +0000
+++ b/IRInstVarAccess.st	Mon Mar 30 14:47:18 2009 +0000
@@ -18,8 +18,12 @@
 !
 
 varname
-	name ifNil: [name := self method compiledMethod methodClass allInstVarNames at: self offset].
-	^name.
+    name 
+        ifNil:[
+            name := self method compiledCode methodClass allInstVarNames 
+                        at:self offset
+        ].
+    ^ name.
 ! !
 
 !IRInstVarAccess class methodsFor:'documentation'!