--- a/extensions.st	Thu Sep 03 17:55:00 2009 +0200
+++ b/extensions.st	Thu Sep 03 17:55:02 2009 +0200
@@ -0,0 +1,15 @@
+"{ Package: 'stx:libview2' }"
+!
+
+!CharacterArray methodsFor:'converting'!
+
+asMimeType
+    ^ MIMETypes mimeTypeFromString:self string
+
+    "
+     'text/html' asMimeType isTextType
+     'text/html' asMimeType isImage
+     'image/gif' asMimeType isImage    
+    "
+! !
+