Index: generic/xotclAccessInt.h
===================================================================
diff -u -rd1369a8b2d5b02d622a18cfccc2f9dd99959d05d -raa4211a6750a6d5d6907aa21d78a90629ec897dc
--- generic/xotclAccessInt.h	(.../xotclAccessInt.h)	(revision d1369a8b2d5b02d622a18cfccc2f9dd99959d05d)
+++ generic/xotclAccessInt.h	(.../xotclAccessInt.h)	(revision aa4211a6750a6d5d6907aa21d78a90629ec897dc)
@@ -75,4 +75,7 @@
 XOTclGetObjectFromCmdPtr(Tcl_Command cmd) {
   return (XOTclObject*) XOTclGetClientDataFromCmdPtr(cmd);
 }
-
+static XOTCLINLINE XOTclObject*
+XOTclGetObjectFromCmdPtrNoAlias(Tcl_Command cmd) {
+  return Tcl_Command_objProc(cmd) == XOTclObjDispatch ? Tcl_Command_objClientData(cmd) : NULL;
+}