--- a/Filename.st	Tue Mar 21 12:01:29 2000 +0100
+++ b/Filename.st	Tue Mar 21 12:07:58 2000 +0100
@@ -2790,6 +2790,9 @@
         ].
     ].
 
+    (buffer findString:'interchangeVersion:') ~~ 0 ifTrue:[
+        ^ 'application/x-smalltalk-source-sif'
+    ].
     (buffer findString:'subclass:') ~~ 0 ifTrue:[
         ^ 'application/x-smalltalk-source'
     ].
@@ -3614,6 +3617,6 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.180 2000-02-02 12:15:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.181 2000-03-21 11:07:58 cg Exp $'
 ! !
 Filename initialize!