Index: generic/nsf.tcl
===================================================================
diff -u -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"
   }
 
   #
Index: generic/nsfProfile.c
===================================================================
diff -u -ra529b8f0a29c485bb855aa73d4b94d3a95a1e13a -r2771c4c7e0b56fe2a6cde84fdae9b170ff652928
--- generic/nsfProfile.c	(.../nsfProfile.c)	(revision a529b8f0a29c485bb855aa73d4b94d3a95a1e13a)
+++ generic/nsfProfile.c	(.../nsfProfile.c)	(revision 2771c4c7e0b56fe2a6cde84fdae9b170ff652928)
@@ -193,14 +193,16 @@
   }
   Tcl_DStringAppend(dsPtr, "} {", 3);
   NsfProfileMethodLabel(dsPtr, cl, methodName);
+  Tcl_DStringAppend(dsPtr, "} ", 1);
+  Tcl_DStringAppendElement(dsPtr, ObjStr(Tcl_GetObjResult(interp)));
 
   if (startSec != 0 || startUsec != 0) {
     struct timeval trt;
 
     gettimeofday(&trt, NULL);
-    Nsf_DStringPrintf(dsPtr, "} %ld ", (trt.tv_sec - startSec) * 1000000 + (trt.tv_usec - startUsec));
+    Nsf_DStringPrintf(dsPtr, " %ld ", (trt.tv_sec - startSec) * 1000000 + (trt.tv_usec - startUsec));
   } else {
-    Tcl_DStringAppend(dsPtr, "} {}", 4);
+    Tcl_DStringAppend(dsPtr, " {}", 4);
   }
 
   NsfDStringEval(interp, &ds, "debug exit", 1, 1);
Index: generic/predefined.h
===================================================================
diff -u -r183cd0a9a3d2a37133ac51bb86952e1b522dbf6f -r2771c4c7e0b56fe2a6cde84fdae9b170ff652928
--- generic/predefined.h	(.../predefined.h)	(revision 183cd0a9a3d2a37133ac51bb86952e1b522dbf6f)
+++ generic/predefined.h	(.../predefined.h)	(revision 2771c4c7e0b56fe2a6cde84fdae9b170ff652928)
@@ -64,8 +64,8 @@
 "namespace eval ::nsf::debug {}\n"
 "proc ::nsf::debug::call {level objectInfo methodInfo arglist} {\n"
 "nsf::log Warning \"DB call($level) - $objectInfo $methodInfo $arglist\"}\n"
-"proc ::nsf::debug::exit {level objectInfo methodInfo usec} {\n"
-"nsf::log Warning \"DB exit($level) - $objectInfo $methodInfo $usec usec\"}\n"
+"proc ::nsf::debug::exit {level objectInfo methodInfo result usec} {\n"
+"nsf::log Warning \"DB exit($level) - $objectInfo $methodInfo $usec usec -> $result\"}\n"
 "proc ::nsf::deprecated {what oldCmd newCmd} {\n"
 "set msg \"*** $what $oldCmd is deprecated.\"\n"
 "if {$newCmd ne \"\"} {append msg \" use $newCmd instead.\"}\n"