--- a/DebugView.st	Wed Dec 02 22:41:42 2009 +0100
+++ b/DebugView.st	Thu Dec 03 11:05:33 2009 +0100
@@ -4874,7 +4874,7 @@
 !
 
 withNodeValueAtInterval:interval do:aBlock
-    |node definingNode nm nmBold varIdx parentNode receiver con|
+    |node definingNode nm nmBold varIdx parentNode receiver con receiversNonMetaClass|
 
 "/interval printCR.
     Error 
@@ -4918,15 +4918,16 @@
             ^ self 
         ].
 
-        (receiver class theNonMetaclass privateClasses contains:[:cls | cls nameWithoutPrefix = nm]) ifTrue:[
+        receiversNonMetaClass := receiver class theNonMetaclass.
+        (receiversNonMetaClass privateClasses contains:[:cls | cls nameWithoutPrefix = nm]) ifTrue:[
             aBlock value:'' value:'private class ',nmBold.
             ^ self 
         ].
-        (receiver class theNonMetaclass classVarNames includes:nm) ifTrue:[
-            aBlock value:((currentMethod mclass ? receiver class) theNonMetaclass classVarAt:nm) value:'classVar ',nmBold.
+        (receiversNonMetaClass classVarNames includes:nm) ifTrue:[
+            aBlock value:((currentMethod mclass ? receiversNonMetaClass) theNonMetaclass classVarAt:nm) value:'classVar ',nmBold.
             ^ self 
         ].
-        receiver class sharedPools do:[:eachPoolName |
+        receiversNonMetaClass sharedPools do:[:eachPoolName |
             |pool|
 
             pool := Smalltalk at:eachPoolName.
@@ -6831,11 +6832,11 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.489 2009-12-02 16:40:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.490 2009-12-03 10:05:33 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.489 2009-12-02 16:40:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.490 2009-12-03 10:05:33 stefan Exp $'
 ! !
 
 DebugView initialize!