Index: xotcl/apps/comm/webserver.xotcl
===================================================================
diff -u -rad8a63234e44a8788efede276e811051ab891fbe -rbb3c756fb47517596b9dbcb4e580aa1212827b41
--- xotcl/apps/comm/webserver.xotcl	(.../webserver.xotcl)	(revision ad8a63234e44a8788efede276e811051ab891fbe)
+++ xotcl/apps/comm/webserver.xotcl	(.../webserver.xotcl)	(revision bb3c756fb47517596b9dbcb4e580aa1212827b41)
@@ -1,9 +1,9 @@
 #!../../src/xotclsh
-# $Id: webserver.xotcl,v 1.3 2005/09/09 21:09:01 neumann Exp $
+# $Id: webserver.xotcl,v 1.4 2006/09/14 06:36:02 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) == "windows"} {lappend auto_path .}
+#if {$::tcl_platform(platform) eq "windows"} {lappend auto_path .}
 package require XOTcl; namespace import -force xotcl::*
 
 proc ! string {
@@ -57,7 +57,7 @@
   request specific infomation.
 }}
 SpecializedWorker instproc respond {} {
-  if {[my set resourceName] == "exit"} {
+  if {[my set resourceName] eq "exit"} {
     set ::forever 1
     #my showVars
     #my set version 1.0;### ???? 
@@ -100,7 +100,7 @@
 } else {
   set USER unknown
 }
-if {$::tcl_platform(platform) == "windows"} {
+if {$::tcl_platform(platform) eq "windows"} {
   set USER unknown
 }