--- a/InspectorView.st	Thu May 02 10:44:57 2002 +0200
+++ b/InspectorView.st	Thu May 02 10:55:55 2002 +0200
@@ -1165,7 +1165,13 @@
     ] ifFalse:[
         s := anObject classNameWithArticle
     ].
-    ^ s ? 'Inspector'
+    s isNil ifTrue:[
+        anObject isBehavior ifTrue:[
+            ^ 'someBehavior'
+        ].
+        ^ 'something'
+    ].
+    ^ s
 !
 
 selectedKeyName
@@ -1554,5 +1560,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.126 2002-04-11 15:22:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.127 2002-05-02 08:55:55 cg Exp $'
 ! !