--- a/DebugView.st	Fri Jun 14 16:34:58 2013 +0200
+++ b/DebugView.st	Fri Jun 14 16:35:07 2013 +0200
@@ -7697,7 +7697,6 @@
              give it to the (lower right) inspector
             "
             Error handle:[:ex |
-                'DebugView [warning]: *****************************' errorPrintCR.
                 'DebugView [warning]: error while accessing context: ' errorPrint.
                 ex description errorPrintCR.
                 contextInspector inspect:nil.
@@ -8029,15 +8028,19 @@
                 ].
             ].
 
-            codeView doItAction:[:theCode |
-                             evaluatorClass
-                                 evaluate:theCode
-                                 in:actualContext
-                                 receiver:rec
-                                 notifying:codeView
-                                 logged:true
-                                 ifFail:nil
-            ].
+            codeView 
+                doItAction:
+                    [:theCode |
+                         evaluatorClass
+                             evaluate:theCode
+                             in:actualContext
+                             receiver:rec
+                             notifying:codeView
+                             logged:true
+                             ifFail:nil
+                    ];
+                editedMethodOrClass:(method ? rec class).
+
             self setCurrentMethod:method.
 
             selectedContext := homeContext ? con.
@@ -8336,15 +8339,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.591 2013-06-14 11:18:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.592 2013-06-14 14:35:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.591 2013-06-14 11:18:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.592 2013-06-14 14:35:07 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.591 2013-06-14 11:18:44 cg Exp $'
+    ^ '$Id: DebugView.st,v 1.592 2013-06-14 14:35:07 cg Exp $'
 ! !