Index: generic/nsf.c
===================================================================
diff -u -r9fa2b6fcc1348e36c652d68e06077c43fd14d92b -ra186ae065e3998c2394dd5afd9a882a9b1ff3414
--- generic/nsf.c	(.../nsf.c)	(revision 9fa2b6fcc1348e36c652d68e06077c43fd14d92b)
+++ generic/nsf.c	(.../nsf.c)	(revision a186ae065e3998c2394dd5afd9a882a9b1ff3414)
@@ -2687,6 +2687,7 @@
   varFramePtr = Tcl_Interp_varFramePtr(interp);
   frameFlags = Tcl_CallFrame_isProcCallFrame(varFramePtr);
 
+#if 0
   /* skip over a nonproc frame, in case Tcl stacks it */
  if (frameFlags == 0 && Tcl_CallFrame_callerPtr(varFramePtr)) {
     varFramePtr = (CallFrame *)Tcl_CallFrame_callerPtr(varFramePtr);
@@ -2695,6 +2696,8 @@
     fprintf(stderr, "InterpColonCmdResolver uses parent frame\n");
 #endif
   }
+#endif
+
 #if defined(CMD_RESOLVER_TRACE)
   fprintf(stderr, "InterpColonCmdResolver cmdName %s flags %.6x, frame flags %.6x\n",cmdName,
           flags, Tcl_CallFrame_isProcCallFrame(varFramePtr));