--- a/MIMETypes.st	Fri Nov 29 13:49:15 2013 +0100
+++ b/MIMETypes.st	Sat Dec 07 11:28:34 2013 +0100
@@ -1281,6 +1281,13 @@
 !MIMETypes::MIMEType methodsFor:'queries'!
 
 isArchive
+    <resource: #obsolete>
+    "return true, if I represent an archive type (such as zip or tar)"
+
+    ^ self isArchiveType
+!
+
+isArchiveType
     "return true, if I represent an archive type (such as zip or tar)"
 
     |archivTypes|
@@ -1293,30 +1300,65 @@
 !
 
 isBinary
+    <resource: #obsolete>
+    "return true, if I represent a binary (non-text) type"
+
+    ^ self isBinaryType
+!
+
+isBinaryType
     "return true, if I represent a binary (non-text) type"
 
     ^ self isTextType not
 !
 
 isHtml
+    <resource: #obsolete>
+    "return true, if I represent the html text type"
+
+    ^ self isHtmlType
+!
+
+isHtmlType
     "return true, if I represent the html text type"
 
     ^ (self = 'text/html')
 !
 
 isImage
+    <resource: #obsolete>
+    "return true, if I represent an image type (such as gif or jpg)"
+
+    ^ self isImageType
+!
+
+isImageType
     "return true, if I represent an image type (such as gif or jpg)"
 
     ^ (self startsWith:'image/')
 !
 
 isPdf
+    <resource: #obsolete>
+    "return true, if I represent the pdf type"
+
+    ^ self isPdfType
+!
+
+isPdfType
     "return true, if I represent the pdf type"
 
     ^ (self = 'application/pdf')
 !
 
 isSmalltalkSource
+    <resource: #obsolete>
+    "return true, if I represent the smalltalk sourcecode type"
+
+    ^ self isSmalltalkSourceType
+!
+
+isSmalltalkSourceType
     "return true, if I represent the smalltalk sourcecode type"
 
     ^ (self = 'application/x-smalltalk-source')
@@ -1329,6 +1371,13 @@
 !
 
 isXml
+    <resource: #obsolete>
+    "return true, if I represent the xml text type"
+
+    ^ self isXmlType
+!
+
+isXmlType
     "return true, if I represent the xml text type"
 
     ^ (self = 'text/xml')
@@ -1345,11 +1394,11 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.130 2013-10-01 13:24:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.131 2013-12-07 10:28:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.130 2013-10-01 13:24:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.131 2013-12-07 10:28:34 cg Exp $'
 ! !