Index: library/xotcl/library/comm/Httpd.xotcl
===================================================================
diff -u -r3c7374ae99f75bf87d5bb61ff070aba5d6f608bf -rd861f735e1202834b3800e38a0af7992faf9c91e
--- library/xotcl/library/comm/Httpd.xotcl	(.../Httpd.xotcl)	(revision 3c7374ae99f75bf87d5bb61ff070aba5d6f608bf)
+++ library/xotcl/library/comm/Httpd.xotcl	(.../Httpd.xotcl)	(revision d861f735e1202834b3800e38a0af7992faf9c91e)
@@ -817,7 +817,7 @@
   #
   # example usage:
 
-  #Httpd h1 -port 8081 -root [glob ~/wafe]
+  #Httpd h1 -port 8081 -root [glob [file join [expr {$::tcl_version < 9 ? "~" : [file home]}] wafe]]
   #Httpd h2 -port 9086 -root $root \
       -mixin {Httpd::Responder Httdp::BasicAccessControl} \
       -addRealmEntry test {test test} -protectDir test "" {} \
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]
   }
Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -r34c85637bb11720deca13064e587dc41a53134a2 -rd861f735e1202834b3800e38a0af7992faf9c91e
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 34c85637bb11720deca13064e587dc41a53134a2)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision d861f735e1202834b3800e38a0af7992faf9c91e)
@@ -1454,7 +1454,7 @@
   ::xotcl::Object create ::xotcl::@
   ::xotcl::@ proc unknown args {}
 
-  set ::xotcl::confdir ~/.xotcl
+  set ::xotcl::confdir [file join [expr {$::tcl_version < 9 ? "~" : [file home]}] .xotcl]
   set ::xotcl::logdir $::xotcl::confdir/log
   namespace import ::nsf::tmpdir