--- a/InspectorView.st	Thu Jul 12 13:08:30 2012 +0200
+++ b/InspectorView.st	Tue Jul 17 13:24:53 2012 +0200
@@ -1975,7 +1975,7 @@
         ^ s contents
     ].
 
-    "Modified: / 17-02-2012 / 20:48:45 / cg"
+    "Modified: / 17-07-2012 / 13:22:27 / cg"
 !
 
 displayStringForValue:someValue
@@ -2116,6 +2116,9 @@
     value isNil ifTrue:[
         ^ 'nil'
     ].
+    (value isClass and:[value name notEmptyOrNil]) ifTrue:[
+        ^ value name
+    ].
     ^ value classNameWithArticle "nil"
 
     "Created: / 13-06-2012 / 12:50:26 / cg"
@@ -3245,9 +3248,9 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.263 2012-06-24 16:42:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.264 2012-07-17 11:24:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.263 2012-06-24 16:42:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.264 2012-07-17 11:24:53 cg Exp $'
 ! !