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