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