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.8 -r1.78.2.9 --- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 6 Jan 2016 22:25:31 -0000 1.78.2.8 +++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 7 Jan 2016 13:32:02 -0000 1.78.2.9 @@ -113,8 +113,8 @@ proc ::nsf::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" + proc ::nsf::debug::exit {level objectInfo methodInfo result usec} { + ns_log Warning "DEBUG exit($level) - {$objectInfo} {$methodInfo} $usec usec -> $result" } }