Index: xotcl/apps/comm/webserver.xotcl
===================================================================
diff -u -rf9bb662bd07a30d00a33e75ab3354bb9f8463999 -re525b7364d9b1fbc7b06e81becf4fe0df06c4209
--- xotcl/apps/comm/webserver.xotcl	(.../webserver.xotcl)	(revision f9bb662bd07a30d00a33e75ab3354bb9f8463999)
+++ xotcl/apps/comm/webserver.xotcl	(.../webserver.xotcl)	(revision e525b7364d9b1fbc7b06e81becf4fe0df06c4209)
@@ -1,15 +1,16 @@
 #!../../src/xotclsh
-# $Id: webserver.xotcl,v 1.8 2007/08/14 16:36:46 neumann Exp $
+# $Id: webserver.xotcl,v 1.9 2007/08/14 16:38:26 neumann Exp $
 array set opts {-root ../../doc -port 8086 -protected-port 9096 -pkgdir .}
 array set opts $argv
 lappend auto_path $opts(-pkgdir)
 #if {$::tcl_platform(platform) eq "windows"} {lappend auto_path .}
 package require XOTcl; namespace import -force xotcl::*
 
 proc ! string {
-  set f [open /tmp/log w+]; 
+  set f [open [::xotcl::tmpdir]/log w+]; 
   puts $f "[clock format [clock seconds]] $string"
-  close $f}
+  close $f
+}
 
 @ @File {
   description {