--- a/MIMETypes.st	Thu Jan 30 09:57:35 2003 +0100
+++ b/MIMETypes.st	Mon Feb 03 11:01:30 2003 +0100
@@ -747,8 +747,7 @@
 
 !MIMETypes::MIMEType methodsFor:'queries'!
 
-isArchiv
-
+isArchive
     |archivTypes|
 
     archivTypes := MIMETypes applicationComprAndArchiveTypeList.
@@ -765,7 +764,7 @@
 
 isImage
 
-    ^ (self startsWith:'image')
+    ^ (self startsWith:'image/')
 !
 
 isPdf
@@ -773,14 +772,13 @@
 !
 
 isSmalltalkSource
-
     ^ (self = 'application/x-smalltalk-source')
 ! !
 
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.48 2003-01-27 15:46:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.49 2003-02-03 10:01:30 cg Exp $'
 ! !
 
 MIMETypes initialize!