Index: library/xotcl/library/comm/Mime.xotcl
===================================================================
diff -u -r073177c8b1304443107efeeb0c334e9477346778 -rd861f735e1202834b3800e38a0af7992faf9c91e
--- library/xotcl/library/comm/Mime.xotcl	(.../Mime.xotcl)	(revision 073177c8b1304443107efeeb0c334e9477346778)
+++ library/xotcl/library/comm/Mime.xotcl	(.../Mime.xotcl)	(revision d861f735e1202834b3800e38a0af7992faf9c91e)
@@ -54,7 +54,7 @@
     } 
   }
   MimeTypeLoader instproc guessContentType {name} {
-    my loadMimeTypes ~/.mime.types
+    my loadMimeTypes [file join [expr {$::tcl_version < 9 ? "~" : [file home]}] .mime.types]
     my mixin {}
     return [next]
   }