--- a/DebugView.st	Sat Mar 08 11:58:56 2008 +0100
+++ b/DebugView.st	Sat Mar 08 18:24:46 2008 +0100
@@ -5983,7 +5983,11 @@
                 "/ although a java object, use the smalltalk parser here for doIts.
                 evaluatorClass := Parser
             ] ifFalse:[
-                evaluatorClass := rec class evaluatorClass
+                (method notNil and:[method mclass notNil]) ifTrue:[
+                    evaluatorClass := method mclass evaluatorClass.
+                ] ifFalse:[
+                    evaluatorClass := rec class evaluatorClass.
+                ].
             ].
 
             codeView doItAction:[:theCode |
@@ -6085,7 +6089,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.426 2008-02-26 10:28:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.427 2008-03-08 17:24:46 cg Exp $'
 ! !
 
 DebugView initialize!