Index: generic/nsf.c
===================================================================
diff -u -r40c7482e5387a46679c178138aafb18ae5fda265 -rd21a9a6e16df623537a75d3bdbf9823f711ab96e
--- generic/nsf.c	(.../nsf.c)	(revision 40c7482e5387a46679c178138aafb18ae5fda265)
+++ generic/nsf.c	(.../nsf.c)	(revision d21a9a6e16df623537a75d3bdbf9823f711ab96e)
@@ -9500,7 +9500,6 @@
 InvokeShadowedProc(Tcl_Interp *interp, Tcl_Obj *procNameObj, int objc, Tcl_Obj *CONST objv[]) {
   int result;
 #if 1
-  (void)procNameObj;
   /*
    * For the time being, we call the shadowed proc defined with a
    * mutated name. It should be possible to compile and call the
@@ -9511,7 +9510,14 @@
    */
   /*fprintf(stderr, "NsfProcStub: call proc arguments oc %d [0] '%s' \n",
     objc, ObjStr(objv[0]));*/
+# if defined(NSF_PROFILE)
+  struct timeval trt;
+  gettimeofday(&trt, NULL);
+# endif
   result = Tcl_EvalObjv(interp, objc, objv, 0);
+# if defined(NSF_PROFILE)
+  NsfProfileRecordProcData(interp, ObjStr(procNameObj), trt.tv_sec, trt.tv_usec);
+# endif
 #else
   //xxx - TODO: unfinished
   /* The code below is just copied from proc method dispatch and