--- a/MIMETypes.st	Tue Sep 10 16:22:23 2002 +0200
+++ b/MIMETypes.st	Tue Sep 10 17:05:09 2002 +0200
@@ -77,7 +77,7 @@
 !MIMETypes class methodsFor:'initialization'!
 
 applicationComprAndArchiveTypeList
-    "/ compressors and archivers
+    "compressors and archivers"
 
     ^ #(
 
@@ -93,7 +93,7 @@
 !
 
 applicationProgLangTypeList
-    "/ applications for programm languages
+    "applications for programm languages"
 
     ^ #(
         ('st' 'cls')                 'application/x-smalltalk-source'
@@ -113,7 +113,7 @@
 !
 
 applicationTextTypeList
-    "/ text applications
+    "text applications"
 
     ^ #(
         ('ps' 'eps')                 'application/postscript'
@@ -124,11 +124,11 @@
 !
 
 applicationTypeList
-    "/ applications
+    "applications"
 
     |types|                            
 
-    types := Array new.
+    types := OrderedCollection new.
     types addAll:self applicationProgLangTypeList.
     types addAll:self applicationTextTypeList.
     types addAll:self applicationComprAndArchiveTypeList.
@@ -136,7 +136,7 @@
 !
 
 audioTypeList
-    "/ audio formats ...
+    "audio formats ..."
 
     ^ #(
         ('ra' 'ram')            'audio/x-pn-realaudio'
@@ -194,7 +194,7 @@
 
     "/ setup file-suffix to mimeType mapping ...
 
-    types := Array new.
+    types := OrderedCollection new.
     types addAll:self textTypeList.
     types addAll:self imageTypeList.
     types addAll:self videoTypeList.
@@ -629,6 +629,6 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.37 2002-09-10 13:50:49 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.38 2002-09-10 15:05:09 cg Exp $'
 ! !
 MIMETypes initialize!