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.37 -r1.93.2.38 --- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 6 Mar 2021 14:23:56 -0000 1.93.2.37 +++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 25 Mar 2021 15:06:01 -0000 1.93.2.38 @@ -312,7 +312,7 @@ set msg [join $args { }] ds_comment "[self]: $msg, ([self callingclass]->[self callingproc] [:__timediff])" } -::xotcl::Object instproc debug msg { +::xotcl::Object instproc debug args { set msg [join $args { }] ns_log debug "[self] [self callingclass]->[self callingproc]: $msg" }