--- a/DebugView.st	Wed Sep 20 11:03:35 2000 +0200
+++ b/DebugView.st	Thu Sep 21 11:54:08 2000 +0200
@@ -3975,7 +3975,7 @@
     |con homeContext sel method code canAccept
      implementorClass lineNrInMethod rec m line
      sender selSender tryVars possibleBlocks errMsg 
-     mthd cls mCls rCls codeSet highlighter|
+     mthd cls mCls rCls codeSet highlighter evaluatorClass|
 
     currentMethod := nil.
 
@@ -4262,8 +4262,16 @@
              evaluator cannot handle passed contexts.
              Once it does, pass con as in:-arg
             "
+            (rec isJavaObject
+            and:[method isNil or:[method isJavaMethod not]]) ifTrue:[
+                "/ although a java object, use the smalltalk parser here for doIts.
+                evaluatorClass := Parser
+            ] ifFalse:[
+                evaluatorClass := rec class evaluatorClass
+            ].
+
             codeView doItAction:[:theCode |
-                             rec class evaluatorClass 
+                             evaluatorClass 
                                  evaluate:theCode 
                                  in:actualContext
                                  receiver:rec 
@@ -4337,6 +4345,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.265 2000-08-19 15:20:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.266 2000-09-21 09:54:08 cg Exp $'
 ! !
 DebugView initialize!