Index: generic/nsf.c
===================================================================
diff -u -N -r57eb831d8ef3d1b770bbeb1b4c1bbb96ddd1ad18 -ra4cc40759137fa8fa609993573ddd9e6e0737f19
--- generic/nsf.c	(.../nsf.c)	(revision 57eb831d8ef3d1b770bbeb1b4c1bbb96ddd1ad18)
+++ generic/nsf.c	(.../nsf.c)	(revision a4cc40759137fa8fa609993573ddd9e6e0737f19)
@@ -15434,18 +15434,19 @@
     Proc *procPtr = Tcl_Command_objClientData(ccCtxPtr->cmd);
 
     if ((Tcl_Interp *)procPtr->iPtr != interp
+        || procPtr->bodyPtr == NULL
         || procPtr->refCount < 1
         || procPtr->numArgs < 0
         || procPtr->numArgs > 10000
         || procPtr->numCompiledLocals < 0
         || procPtr->numCompiledLocals > 10000
        ) {
       fprintf(stderr, "################### do NOT trust cached procPtr %p of %s "
-              "(object %s class %s) "
+              "(object %s class %s) bodyPtr %p "
               "iPtr %p interp %p refCount %d numArgs %d numCompiledLocals %d\n",
               (void*)procPtr, methodName,
               ObjectName(object), ClassName(object->cl),
-              (void*)procPtr->iPtr, (void*)interp,
+              (void*)procPtr->bodyPtr, (void*)procPtr->iPtr, (void*)interp,
               procPtr->refCount, procPtr->numArgs, procPtr->numCompiledLocals);
       ccCtxPtr = NULL;
     }