Index: generic/nsf.c =================================================================== diff -u -rfbf70aa67bec4deec1078074787aafb8b66b2dde -r8651e9f7d6d526196cfe4dad14d08b857a66f5d8 --- generic/nsf.c (.../nsf.c) (revision fbf70aa67bec4deec1078074787aafb8b66b2dde) +++ generic/nsf.c (.../nsf.c) (revision 8651e9f7d6d526196cfe4dad14d08b857a66f5d8) @@ -2319,7 +2319,8 @@ *---------------------------------------------------------------------- */ static int -InterpColonVarResolver(Tcl_Interp *interp, CONST char *varName, Tcl_Namespace *nsPtr, int flags, Tcl_Var *varPtr) { +InterpColonVarResolver(Tcl_Interp *interp, CONST char *varName, Tcl_Namespace *nsPtr, + int flags, Tcl_Var *varPtr) { int new, frameFlags; CallFrame *varFramePtr; TclVarHashTable *varTablePtr; @@ -2343,14 +2344,17 @@ fprintf(stderr, "InterpColonVarResolver called var '%s' flags %.4x frame flags %.6x\n", varName, flags, frameFlags); #endif + varName ++; if (frameFlags & FRAME_IS_NSF_METHOD) { if ((*varPtr = CompiledLocalsLookup(varFramePtr, varName))) { #if defined(VAR_RESOLVER_TRACE) fprintf(stderr, ".... found local %s\n", varName); #endif - return TCL_OK; + fprintf(stderr, ".... found local %s varPtr %p\n", varName, *varPtr); + return TCL_CONTINUE; + //return TCL_OK; } object = ((NsfCallStackContent *)varFramePtr->clientData)->self; @@ -16943,7 +16947,7 @@ #endif Tcl_SetVar(interp, "::nsf::version", NSF_VERSION, TCL_GLOBAL_ONLY); - Tcl_SetVar(interp, "::nsf::patchlevel", NSF_PATCHLEVEL, TCL_GLOBAL_ONLY); + Tcl_SetVar(interp, "::nsf::patchLevel", NSF_PATCHLEVEL, TCL_GLOBAL_ONLY); Tcl_AddInterpResolvers(interp,"nxt", (Tcl_ResolveCmdProc*)InterpColonCmdResolver,