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.15 -r1.16
--- openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl	28 Feb 2018 08:40:56 -0000	1.15
+++ openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl	4 Mar 2018 18:38:01 -0000	1.16
@@ -9,7 +9,10 @@
   } {
     :log "--[self class] unknown called with '$method' <$args>"
     switch -- [llength $args] {
-      0 {if {[info exists :$method]} {return ${:method}}
+      0 {
+        if {[info exists :$method]} {
+          return ${:method}
+        }
         return [ad_conn $method]
       }
       1 {set :method $args}