Index: generic/nsf.tcl
===================================================================
diff -u -r8854eeff1e1b2d5fde52ee4f71b1e2b7844b2dea -r183cd0a9a3d2a37133ac51bb86952e1b522dbf6f
--- generic/nsf.tcl	(.../nsf.tcl)	(revision 8854eeff1e1b2d5fde52ee4f71b1e2b7844b2dea)
+++ generic/nsf.tcl	(.../nsf.tcl)	(revision 183cd0a9a3d2a37133ac51bb86952e1b522dbf6f)
@@ -1,5 +1,5 @@
 # -*- Tcl -*-
-# 
+#
 # Define a basic set of predefined Tcl commands and definitions for
 # the Next Scripting Framework. This file will be transformed by
 # mk_predefined.tcl into "predefined.h", which in included in nsf.c.
@@ -13,10 +13,10 @@
   # get frequenly used primitiva into the ::nsf namespace
   #
   # Symbols reused in the next scripting language
-  
+
   namespace export \
       next current self configure finalize interp is my relation dispatch
- 
+
   namespace eval ::nsf::method::create {namespace export alias}
 
   #
@@ -68,7 +68,7 @@
   }
 
   #
-  # ::nsf::mixin 
+  # ::nsf::mixin
   #
   # Provide a similar interface as for ::nsf::method::create, ::nsf::method::alias,
   # etc..  Semantically, ::nsf::mixin behaves like a "mixin add", but
@@ -136,7 +136,7 @@
   }
   # initialize exit handler
   ::nsf::exithandler unset
-  
+
   #
   # logger
   #
@@ -157,6 +157,17 @@
   }
 
   #
+  # debug::call and debug::exit command
+  #
+  namespace eval ::nsf::debug {}
+  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"
+  }
+
+  #
   # deprecated command
   #
   proc ::nsf::deprecated {what oldCmd newCmd} {
@@ -168,7 +179,7 @@
 
   #
   # determine platform aware temp directory
-  #  
+  #
   proc tmpdir {} {
     foreach e [list TMPDIR TEMP TMP] {
       if {[info exists ::env($e)] \
@@ -186,7 +197,7 @@
     }
     return /tmp
   }
-  namespace export tmpdir 
+  namespace export tmpdir
 
   # if HOME is not set, and ~ is resolved, Tcl chokes on that
   if {![info exists ::env(HOME)]} {set ::env(HOME) /root}
@@ -210,3 +221,10 @@
   set ::nsf::parameter::syntax(::nsf::exithandler) "?get?|?set /cmds/?|?unset?"
 
 }
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: