--- a/InspectorView.st	Mon Dec 02 04:28:45 2013 +0000
+++ b/InspectorView.st	Tue Dec 03 16:13:35 2013 +0100
@@ -247,7 +247,8 @@
 
     extra := ''.
     "/ the following should be provided by the inspected object (labelInInspector)
-    anObject isImage ifTrue:[
+    "/ Take care #isImage is also understood in MIMEType!!
+    anObject isImageOrForm ifTrue:[
         anObject fileName notNil ifTrue:[
             extra := ' (', anObject fileName asFilename baseName,')'
         ]
@@ -3688,10 +3689,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.322 2013-09-07 09:09:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.323 2013-12-03 15:13:35 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.322 2013-09-07 09:09:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.323 2013-12-03 15:13:35 stefan Exp $'
 ! !