--- a/InspectorView.st	Tue Dec 05 18:53:24 1995 +0100
+++ b/InspectorView.st	Tue Dec 05 19:34:59 1995 +0100
@@ -12,7 +12,7 @@
 
 SimpleView subclass:#InspectorView
 	 instanceVariableNames:'listView workspace inspectedObject selectedLine nShown hasMore
-                monitorProcess'
+		monitorProcess'
 	 classVariableNames:'DefaultIcon'
 	 poolDictionaries:''
 	 category:'Interface-Inspector'
@@ -378,8 +378,9 @@
 release
     "release inpected object. This is normally not needed,
      since the garbage collector will find this memory alone.
-     However, if some applications keeps inspectors (for example,
-     the debugger does this), this would be freed very late."
+     However, if some applications keeps invisible inspectors around
+     (for example, the debugger does this), the inspected object
+     would be kept from being freed or freed very late."
 
 "
     inspectedObject notNil ifTrue:[
@@ -387,7 +388,7 @@
     ].
 "
     inspectedObject := nil.
-    workspace doItAction:nil.
+    self setDoItAction.      "/ to release ref to inspectedObject in doItBlock
     workspace contents:nil.
     listView contents:nil
 ! !
@@ -659,5 +660,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.32 1995-11-23 17:44:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.33 1995-12-05 18:34:59 cg Exp $'
 ! !