Index: generic/tclAPI.h
===================================================================
diff -u -rb708f296be8c5cbd3e4daa959713483dbdfdfd82 -r477c12e1b0f192ab18de415e30001ea151d7ddda
--- generic/tclAPI.h	(.../tclAPI.h)	(revision b708f296be8c5cbd3e4daa959713483dbdfdfd82)
+++ generic/tclAPI.h	(.../tclAPI.h)	(revision 477c12e1b0f192ab18de415e30001ea151d7ddda)
@@ -265,7 +265,7 @@
 static int XOTclAliasCmd(Tcl_Interp *interp, XOTclObject *object, char *methodName, int withObjscope, int withPer_object, int withProtected, Tcl_Obj *cmdName);
 static int XOTclConfigureCmd(Tcl_Interp *interp, int configureoption, Tcl_Obj *value);
 static int XOTclCreateObjectSystemCmd(Tcl_Interp *interp, Tcl_Obj *rootClass, Tcl_Obj *rootMetaClass);
-static int XOTclDeprecatedCmd(Tcl_Interp *interp, char *oldCmd, char *newCmd);
+static int XOTclDeprecatedCmd(Tcl_Interp *interp, char *what, char *oldCmd, char *newCmd);
 static int XOTclDispatchCmd(Tcl_Interp *interp, XOTclObject *object, int withObjscope, Tcl_Obj *command, int nobjc, Tcl_Obj *CONST nobjv[]);
 static int XOTclDotCmd(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
 static int XOTclFinalizeObjCmd(Tcl_Interp *interp);
@@ -2036,11 +2036,12 @@
                      &pc) != TCL_OK) {
     return TCL_ERROR;
   } else {
-    char *oldCmd = (char *)pc.clientData[0];
-    char *newCmd = (char *)pc.clientData[1];
+    char *what = (char *)pc.clientData[0];
+    char *oldCmd = (char *)pc.clientData[1];
+    char *newCmd = (char *)pc.clientData[2];
 
     parseContextRelease(&pc);
-    return XOTclDeprecatedCmd(interp, oldCmd, newCmd);
+    return XOTclDeprecatedCmd(interp, what, oldCmd, newCmd);
 
   }
 }
@@ -2661,7 +2662,8 @@
   {"rootClass", 1, 0, convertToTclobj},
   {"rootMetaClass", 1, 0, convertToTclobj}}
 },
-{"::xotcl::deprecated", XOTclDeprecatedCmdStub, 2, {
+{"::xotcl::deprecated", XOTclDeprecatedCmdStub, 3, {
+  {"what", 1, 0, convertToString},
   {"oldCmd", 1, 0, convertToString},
   {"newCmd", 0, 0, convertToString}}
 },