--- a/InspView.st	Fri Aug 01 12:45:38 1997 +0200
+++ b/InspView.st	Fri Aug 01 21:49:58 1997 +0200
@@ -677,10 +677,17 @@
                     notifying:workspace 
                     logged:true 
                     ifFail:nil
+            ] ifFalse:[
+                'objects class provides no evaluator'
             ]
         ].
 
-    "Modified: 13.5.1996 / 20:32:12 / cg"
+    inspectedObject class evaluatorClass isNil ifTrue:[
+        workspace doItAction:nil.
+        workspace acceptAction:nil.
+    ]
+
+    "Modified: 1.8.1997 / 21:47:09 / cg"
 !
 
 showMore
@@ -877,5 +884,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.68 1997-07-03 12:29:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.69 1997-08-01 19:49:58 cg Exp $'
 ! !

--- a/InspectorView.st	Fri Aug 01 12:45:38 1997 +0200
+++ b/InspectorView.st	Fri Aug 01 21:49:58 1997 +0200
@@ -677,10 +677,17 @@
                     notifying:workspace 
                     logged:true 
                     ifFail:nil
+            ] ifFalse:[
+                'objects class provides no evaluator'
             ]
         ].
 
-    "Modified: 13.5.1996 / 20:32:12 / cg"
+    inspectedObject class evaluatorClass isNil ifTrue:[
+        workspace doItAction:nil.
+        workspace acceptAction:nil.
+    ]
+
+    "Modified: 1.8.1997 / 21:47:09 / cg"
 !
 
 showMore
@@ -877,5 +884,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.68 1997-07-03 12:29:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.69 1997-08-01 19:49:58 cg Exp $'
 ! !