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.44 -r1.93.2.45
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	27 Oct 2021 19:34:25 -0000	1.93.2.44
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	7 Dec 2021 09:25:53 -0000	1.93.2.45
@@ -339,11 +339,11 @@
 
 ::xotcl::Object instproc log args {
   set msg [join $args { }]
-  ns_log notice "$msg, [self] [self callingclass]->[self callingproc] ([:__timediff])"
+  ns_log notice "[self] [self callingclass]->[self callingproc]: $msg ([:__timediff])"
 }
 ::xotcl::Object instproc ds args {
   set msg [join $args { }]
-  ds_comment "[self]: $msg, ([self callingclass]->[self callingproc] [:__timediff])"
+  ds_comment "[self] [self callingclass]->[self callingproc]: $msg ([:__timediff])"
 }
 ::xotcl::Object instproc debug args {
   set msg [join $args { }]