--- a/MIMETypes.st	Sat Aug 01 17:28:54 1998 +0200
+++ b/MIMETypes.st	Sat Aug 01 17:51:03 1998 +0200
@@ -132,8 +132,14 @@
     "/ misc stuff
 
     fileSuffixToTypeMapping at:'st'   put:'application/x-smalltalk-source'.
+    fileSuffixToTypeMapping at:'js'   put:'application/x-javascript'.
+
     fileSuffixToTypeMapping at:'tar'  put:'application/x-tar'.
+    fileSuffixToTypeMapping at:'tgz'  put:'application/x-tar-compressed'.
     fileSuffixToTypeMapping at:'zip'  put:'application/x-zip-compressed'.
+    fileSuffixToTypeMapping at:'sh'   put:'application/x-sh'.
+    fileSuffixToTypeMapping at:'tcl'  put:'application/x-tcl'.
+    fileSuffixToTypeMapping at:'pl'   put:'application/x-perl'.
 
     "/ character sets (not really mime stuff, but also placed here)
 
@@ -164,7 +170,7 @@
      self initialize
     "
 
-    "Modified: / 1.8.1998 / 17:28:38 / cg"
+    "Modified: / 1.8.1998 / 17:50:57 / cg"
 ! !
 
 !MIMETypes class methodsFor:'accessing'!
@@ -306,6 +312,6 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.12 1998-08-01 15:28:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.13 1998-08-01 15:51:03 cg Exp $'
 ! !
 MIMETypes initialize!