Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -N -r1.93.2.36 -r1.93.2.37
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	19 Feb 2021 10:11:54 -0000	1.93.2.36
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	6 Mar 2021 14:23:56 -0000	1.93.2.37
@@ -304,16 +304,20 @@
   return "${ms}ms$diff"
 }
 
-::xotcl::Object instproc log msg {
+::xotcl::Object instproc log args {
+  set msg [join $args { }]
   ns_log notice "$msg, [self] [self callingclass]->[self callingproc] ([:__timediff])"
 }
-::xotcl::Object instproc ds msg {
+::xotcl::Object instproc ds args {
+  set msg [join $args { }]
   ds_comment "[self]: $msg, ([self callingclass]->[self callingproc] [:__timediff])"
 }
 ::xotcl::Object instproc debug msg {
+  set msg [join $args { }]
   ns_log debug "[self] [self callingclass]->[self callingproc]: $msg"
 }
-::xotcl::Object instproc msg {{-html false} msg} {
+::xotcl::Object instproc msg {{-html false} args} {
+  set msg [join $args { }]
   if {[ns_conn isconnected]} {
     set msg "[self]: $msg  ([self callingclass]->[self callingproc])"
     if {$html} {