Index: generic/tclAPI.h
===================================================================
diff -u -re5b7b9261b0de87bf7a45ff7416ecd967037fa0b -r12f68a7ade25ae2bb0fccb8a88583fc0d22edda0
--- generic/tclAPI.h	(.../tclAPI.h)	(revision e5b7b9261b0de87bf7a45ff7416ecd967037fa0b)
+++ generic/tclAPI.h	(.../tclAPI.h)	(revision 12f68a7ade25ae2bb0fccb8a88583fc0d22edda0)
@@ -169,6 +169,7 @@
 static int XOTclDeprecatedCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
 static int XOTclDispatchCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
 static int XOTclDotCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
+static int XOTclDotDotCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
 static int XOTclExistsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
 static int XOTclFinalizeObjCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
 static int XOTclForwardCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []);
@@ -250,6 +251,7 @@
 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 XOTclDotDotCmd(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
 static int XOTclExistsCmd(Tcl_Interp *interp, XOTclObject *object, char *var);
 static int XOTclFinalizeObjCmd(Tcl_Interp *interp);
 static int XOTclForwardCmd(Tcl_Interp *interp, XOTclObject *object, int withPer_object, Tcl_Obj *method, Tcl_Obj *withDefault, int withEarlybinding, Tcl_Obj *withMethodprefix, int withObjscope, Tcl_Obj *withOnerror, int withVerbose, Tcl_Obj *target, int nobjc, Tcl_Obj *CONST nobjv[]);
@@ -332,6 +334,7 @@
  XOTclDeprecatedCmdIdx,
  XOTclDispatchCmdIdx,
  XOTclDotCmdIdx,
+ XOTclDotDotCmdIdx,
  XOTclExistsCmdIdx,
  XOTclFinalizeObjCmdIdx,
  XOTclForwardCmdIdx,
@@ -1627,6 +1630,15 @@
 }
 
 static int
+XOTclDotDotCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
+
+    
+
+    return XOTclDotDotCmd(interp, objc, objv);
+
+}
+
+static int
 XOTclExistsCmdStub(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   parseContext pc;
 
@@ -2221,6 +2233,9 @@
 {"::xotcl::dot", XOTclDotCmdStub, 1, {
   {"args", 0, 0, convertToNothing}}
 },
+{"::xotcl::dotdot", XOTclDotDotCmdStub, 1, {
+  {"args", 0, 0, convertToNothing}}
+},
 {"::xotcl::exists", XOTclExistsCmdStub, 2, {
   {"object", 1, 0, convertToObject},
   {"var", 1, 0, convertToString}}