--- a/FileBrowser.st	Mon Sep 11 22:02:45 2000 +0200
+++ b/FileBrowser.st	Wed Sep 13 13:30:34 2000 +0200
@@ -5918,7 +5918,9 @@
         "/ shell script
         ^ #('#' (nil nil)).
     ].
-    ((mime = 'text/html') or:[(mime = 'text/xml')]) ifTrue:[
+    ((mime = 'text/html') 
+    or:[(mime = 'text/xml')
+    or:[(mime = 'application/xml')]]) ifTrue:[
         ^ #(nil ('<!!-- ' ' -->')).
     ].
     (mime = 'application/x-batch-script') ifTrue:[
@@ -7110,5 +7112,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.377 2000-09-11 20:02:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.378 2000-09-13 11:30:34 cg Exp $'
 ! !