Index: generic/nsf.tcl =================================================================== diff -u -N -r183cd0a9a3d2a37133ac51bb86952e1b522dbf6f -r2771c4c7e0b56fe2a6cde84fdae9b170ff652928 --- generic/nsf.tcl (.../nsf.tcl) (revision 183cd0a9a3d2a37133ac51bb86952e1b522dbf6f) +++ generic/nsf.tcl (.../nsf.tcl) (revision 2771c4c7e0b56fe2a6cde84fdae9b170ff652928) @@ -163,8 +163,8 @@ proc ::nsf::debug::call {level objectInfo methodInfo arglist} { nsf::log Warning "DB call($level) - $objectInfo $methodInfo $arglist" } - proc ::nsf::debug::exit {level objectInfo methodInfo usec} { - nsf::log Warning "DB exit($level) - $objectInfo $methodInfo $usec usec" + proc ::nsf::debug::exit {level objectInfo methodInfo result usec} { + nsf::log Warning "DB exit($level) - $objectInfo $methodInfo $usec usec -> $result" } #