Index: openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl	24 Sep 2008 09:58:41 -0000	1.15
+++ openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl	3 Oct 2008 08:58:42 -0000	1.16
@@ -221,7 +221,7 @@
   }
 
   HttpCore instproc set_default_port {protocol} {
-    switch $protocol {
+    switch -- $protocol {
       http  {my set port 80}
       https {my set port 443}
     }