--- a/InspectorView.st	Thu May 11 10:56:34 2000 +0200
+++ b/InspectorView.st	Thu May 11 12:07:13 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libtool' }"
+
 SimpleView subclass:#InspectorView
 	instanceVariableNames:'listView labelView workspace inspectedObject selectedLine nShown
 		hasMore monitorProcess hideReceiver showHex inspectHistory
@@ -1039,11 +1041,14 @@
     "return the iconLabel to use in my topView, when inspecting anObject.
      Simply returns the className or name of anObjects class"
 
+    |s|
+
     anObject isClass ifTrue:[
-        ^ anObject displayString
+        s := anObject displayString
+    ] ifFalse:[
+        s := anObject classNameWithArticle
     ].
-    ^ anObject classNameWithArticle
-
+    ^ s ? 'Inspector'
 ! !
 
 !InspectorView methodsFor:'user interaction'!
@@ -1282,5 +1287,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.106 2000-02-10 12:38:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.107 2000-05-11 10:07:13 cg Exp $'
 ! !