Index: generic/xotclAccessInt.h
===================================================================
diff -u -r04a8acdb23193c6b36b339e085dd9f6814448a8d -r8ddbf5cdc1dd1f9e0d9c429a8c3f6d279c97bd8e
--- generic/xotclAccessInt.h	(.../xotclAccessInt.h)	(revision 04a8acdb23193c6b36b339e085dd9f6814448a8d)
+++ generic/xotclAccessInt.h	(.../xotclAccessInt.h)	(revision 8ddbf5cdc1dd1f9e0d9c429a8c3f6d279c97bd8e)
@@ -18,15 +18,14 @@
 #define Tcl_CallFrame_objc(cf)            ((CallFrame *)cf)->objc
 #define Tcl_CallFrame_objv(cf)            ((CallFrame *)cf)->objv
 #define Tcl_CallFrame_clientData(cf)      ((CallFrame *)cf)->clientData
+#define Tcl_CallFrame_nsPtr(cf)           ((Tcl_Namespace *)((CallFrame *)cf)->nsPtr)
 
 #define Tcl_Namespace_cmdTable(nsPtr)    &((Namespace *)nsPtr)->cmdTable
 #define Tcl_Namespace_varTable(nsPtr)    &((Namespace *)nsPtr)->varTable
 #define Tcl_Namespace_childTable(nsPtr)  &((Namespace *)nsPtr)->childTable
 #define Tcl_Namespace_activationCount(nsPtr) ((Namespace *)nsPtr)->activationCount
 #define Tcl_Namespace_deleteProc(nsPtr)  ((Namespace *)nsPtr)->deleteProc
 
-
-
 #define Tcl_Command_refCount(cmd)      ((Command *)cmd)->refCount
 #define Tcl_Command_cmdEpoch(cmd)      ((Command *)cmd)->cmdEpoch
 #define Tcl_Command_flags(cmd)         ((Command *)cmd)->flags