Index: generic/xotclShadow.c
===================================================================
diff -u -r07939dc97b98b4a40c047be6923c36380c7c6b5d -r044952af84b087821f5bd68570b84b8e3e000851
--- generic/xotclShadow.c	(.../xotclShadow.c)	(revision 07939dc97b98b4a40c047be6923c36380c7c6b5d)
+++ generic/xotclShadow.c	(.../xotclShadow.c)	(revision 044952af84b087821f5bd68570b84b8e3e000851)
@@ -95,8 +95,7 @@
 
   /* if an obj/cl should be renamed => call the XOTcl move method */
   cmd = Tcl_FindCommand(interp, ObjStr(objv[1]), (Tcl_Namespace *)NULL,0);
-
-  if (cmd != NULL) {
+  if (cmd) {
     obj = XOTclGetObjectFromCmdPtr(cmd);
     if (obj) {
       return XOTclCallMethodWithArgs((ClientData)obj, interp,
@@ -188,7 +187,7 @@
   ov[0] = XOTclGlobalObjects[name];
   if (objc > 1)
     memcpy(ov+1, objv+1, sizeof(Tcl_Obj *)*(objc-1));
-  result = (*ti->proc)(ti->clientData, interp, objc, ov);
+  result = Tcl_NRCallObjProc(interp, ti->proc, ti->clientData, objc, objv);
   FREE_ON_STACK(ov);
   return result;
 }