--- a/InspectorView.st	Tue Apr 08 19:20:50 2014 +0200
+++ b/InspectorView.st	Tue Apr 08 19:23:06 2014 +0200
@@ -221,7 +221,7 @@
      see if two objects are identical (and is very useful, indeed).
      WARNING: used by both Inspector and Inspector2 !!!!!!"
 
-    |lbl id extra|
+    |lbl id|
 
     lbl := ''.
     (anObject isImmediate
@@ -245,20 +245,10 @@
                     ].
     ] valueUninterruptably.
 
-    extra := ''.
-    "/ the following should be provided by the inspected object (labelInInspector)
-    "/ Take care #isImage is also understood in MIMEType!!
-    anObject isImageOrForm ifTrue:[
-        anObject fileName notNil ifTrue:[
-            extra := ' (', anObject fileName asFilename baseName,')'
-        ]
-    ].
-
     ^ self classResources 
         string:lbl 
         with:(self labelNameFor:anObject)
         with:id
-        with:extra
 
     "Created: / 15-07-2011 / 16:21:44 / cg"
 !
@@ -3706,10 +3696,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.328 2014-03-04 12:53:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.329 2014-04-08 17:23:06 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.328 2014-03-04 12:53:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.329 2014-04-08 17:23:06 stefan Exp $'
 ! !