--- a/ImageInspectorView.st	Thu Nov 05 18:53:37 2009 +0100
+++ b/ImageInspectorView.st	Thu Nov 05 18:56:43 2009 +0100
@@ -248,10 +248,8 @@
     |l|
 
     l := super labelFor:anObject.
-    anObject notNil ifTrue:[
-        anObject fileName notNil ifTrue:[
-            l := l , ' (''' , anObject fileName , ''')'
-        ].
+    (anObject notNil and:[anObject fileName notNil]) ifTrue:[
+        l := l , ' (''' , anObject fileName , ''')'
     ].
     ^ l
 ! !
@@ -259,9 +257,9 @@
 !ImageInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.24 2009-10-01 10:29:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.25 2009-11-05 17:56:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.24 2009-10-01 10:29:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ImageInspectorView.st,v 1.25 2009-11-05 17:56:43 cg Exp $'
 ! !