--- a/ImageInspectorView.st	Thu Jul 26 11:10:37 2012 +0100
+++ b/ImageInspectorView.st	Thu Jul 26 17:09:41 2012 +0100
@@ -245,25 +245,27 @@
 !ImageInspectorView methodsFor:'queries'!
 
 labelFor:anObject
-    |l|
+    |l fn|
 
     l := super labelFor:anObject.
-    (anObject notNil and:[anObject fileName notNil]) ifTrue:[
-        l := l , ' (''' , anObject fileName , ''')'
+    (anObject notNil and:[(fn := anObject fileName) notNil]) ifTrue:[
+        l := l , ' (''' , fn asFilename baseName, ''')'
     ].
     ^ l
+
+    "Modified: / 25-07-2012 / 12:53:13 / cg"
 ! !
 
 !ImageInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ImageInspectorView.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.26 2012/07/25 10:54:12 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.25 2009/11/05 17:56:43 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.26 2012/07/25 10:54:12 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: ImageInspectorView.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+    ^ '$Id: ImageInspectorView.st 8026 2012-07-26 16:09:41Z vranyj1 $'
 ! !