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.78.2.7 -r1.78.2.8 --- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 2 Jan 2016 00:06:38 -0000 1.78.2.7 +++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 6 Jan 2016 22:25:31 -0000 1.78.2.8 @@ -111,10 +111,10 @@ namespace eval ::nsf::debug {} proc ::nsf::debug::call {level objectInfo methodInfo arglist} { - ns_log Warning "DEBUG call($level) - $objectInfo $methodInfo $arglist" + ns_log Warning "DEBUG call($level) - {$objectInfo} {$methodInfo} $arglist" } proc ::nsf::debug::exit {level objectInfo methodInfo usec} { - ns_log Warning "DEBUG exit($level) - $objectInfo $methodInfo $usec usec" + ns_log Warning "DEBUG exit($level) - {$objectInfo} {$methodInfo} $usec usec" } }