--- a/MIMETypes.st	Wed Dec 01 11:26:22 1999 +0100
+++ b/MIMETypes.st	Wed Dec 01 11:29:12 1999 +0100
@@ -342,9 +342,9 @@
         "/ the special value #unknown is returned as nil;
         "/ this avoids constant retry if a mimeType is not known in
         "/ the OS.
-        type isNil ifTrue:[
-            FilenameToTypeMapping at:lcFilename put:#unknown
-        ].
+"/        type isNil ifTrue:[
+"/            FilenameToTypeMapping at:lcFilename put:#unknown
+"/        ].
     ].
 
     type == #unknown ifTrue:[
@@ -384,9 +384,9 @@
         "/ the special value #unknown is returned as nil;
         "/ this avoids constant retry if a mimeType is not known in
         "/ the OS.
-        type isNil ifTrue:[
-            FileSuffixToTypeMapping at:lcSuffix put:#unknown
-        ].
+"/        type isNil ifTrue:[
+"/            FileSuffixToTypeMapping at:lcSuffix put:#unknown
+"/        ].
     ].
     type == #unknown ifTrue:[
         type := nil
@@ -412,6 +412,6 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.21 1999-12-01 10:26:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.22 1999-12-01 10:29:12 cg Exp $'
 ! !
 MIMETypes initialize!