--- a/InspectorView.st	Thu Mar 09 10:51:29 2017 +0100
+++ b/InspectorView.st	Thu Mar 09 11:01:11 2017 +0100
@@ -3831,12 +3831,15 @@
         ];
         editedMethodOrClass:(object class).
 
+    workspace simulatedSelf:object.
+    "/ workspace perform:#simulatedSelf: with:object ifNotUnderstood:[].
+    
 "/    object class evaluatorClass isNil ifTrue:[
 "/        workspace doItAction:nil.
 "/        workspace acceptAction:nil.
 "/    ]
 
-    "Modified: 1.8.1997 / 21:47:09 / cg"
+    "Modified: / 09-03-2017 / 10:42:45 / cg"
 !
 
 showAllIndexedVarsInFieldList