--- a/Filename.st	Wed Dec 01 11:30:02 1999 +0100
+++ b/Filename.st	Wed Dec 01 11:33:47 1999 +0100
@@ -2707,9 +2707,10 @@
 
     (idx := buffer findString:'MIMEType:') ~~ 0 ifTrue:[
         idx := idx + 'MIMEType:' size.
-        idx2 := buffer indexOf:Character cr startingAt:idx.
-        idx > idx ifTrue:[
-            ^ buffer copyFrom:idx to:idx.
+        idx := buffer indexOfNonSeparatorStartingAt:idx.
+        idx2 := buffer indexOfSeparatorStartingAt:idx.
+        idx2 > idx ifTrue:[
+            ^ buffer copyFrom:idx to:idx2-1
         ].
     ].
 
@@ -3482,6 +3483,6 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.170 1999-11-19 14:58:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.171 1999-12-01 10:33:47 cg Exp $'
 ! !
 Filename initialize!