Index: openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl	23 Sep 2008 09:49:40 -0000	1.1
+++ openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl	3 Oct 2008 08:58:42 -0000	1.2
@@ -8,7 +8,7 @@
     Return connection information similar to ad_conn
   } {
     my log "--[self class] unknown called with '$method' <$args>"
-    switch [llength $args] {
+    switch -- [llength $args] {
       0 {if {[my exists $method]} {return [my set method]}
         return [ad_conn $method]
       }