--- a/InspectorView.st	Fri Jun 14 16:35:07 2013 +0200
+++ b/InspectorView.st	Fri Jun 14 16:35:18 2013 +0200
@@ -3051,7 +3051,8 @@
             ] ifFalse:[
                 'object''s class provides no evaluator'
             ]
-        ].
+        ];
+        editedMethodOrClass:(object class).
 
 "/    object class evaluatorClass isNil ifTrue:[
 "/        workspace doItAction:nil.
@@ -3506,10 +3507,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.313 2013-06-09 14:16:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.314 2013-06-14 14:35:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.313 2013-06-09 14:16:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.314 2013-06-14 14:35:18 cg Exp $'
 ! !