--- a/DebugView.st	Wed Jan 09 12:11:23 2002 +0100
+++ b/DebugView.st	Wed Jan 09 12:14:58 2002 +0100
@@ -4130,7 +4130,11 @@
         node isVariable ifTrue:[
             nm := node name.
 
-            (#( 'self' 'super' 'thisContext') includes:nm) ifTrue:[
+            (nm = 'self') ifTrue:[
+                self showValue:(actualContext methodHome receiver).
+                ^ self
+            ].
+            (#( 'super' 'thisContext') includes:nm) ifTrue:[
                 ^ self
             ].
 
@@ -5852,6 +5856,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.310 2002-01-09 11:11:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.311 2002-01-09 11:14:58 cg Exp $'
 ! !
 DebugView initialize!