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 -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} {