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.93.2.45 -r1.93.2.46
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	7 Dec 2021 09:25:53 -0000	1.93.2.45
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	27 Jan 2022 10:27:12 -0000	1.93.2.46
@@ -183,9 +183,22 @@
   proc ::nsf::debug::call {level objectInfo methodInfo arglist} {
     ns_log Warning "DEBUG call($level) - {$objectInfo} {$methodInfo} $arglist"
   }
-  proc ::nsf::debug::exit {level objectInfo methodInfo result usec} {
-    #ns_log Warning "DEBUG exit($level) - {$objectInfo} {$methodInfo} $usec usec -> $result"
-    ns_log Warning "DEBUG exit($level) - {$objectInfo} {$methodInfo} $usec usec"
+
+  if {[acs::icanuse "nsf::config profile"]} {
+    #
+    # The debug call-data of nsf returns only timing information, when
+    # nsf was compiled with --enable-profile. So, just try to display
+    # it, when available.
+    #
+    proc ::nsf::debug::exit {level objectInfo methodInfo result usec} {
+      #ns_log Warning "DEBUG exit($level) - {$objectInfo} {$methodInfo} $usec usec -> $result"
+      ns_log Warning "DEBUG exit($level) - {$objectInfo} {$methodInfo} $usec usec"
+    }
+  } else {
+    proc ::nsf::debug::exit {level objectInfo methodInfo result usec} {
+      #ns_log Warning "DEBUG exit($level) - {$objectInfo} {$methodInfo} -> $result"
+      ns_log Warning "DEBUG exit($level) - {$objectInfo} {$methodInfo}"
+    }
   }
 }