Index: generic/xotcl.c
===================================================================
diff -u -recc8a110c338877202b900868da32eb8dcd561ad -rde505f4134eb384a34270081e0889818577ef4ef
--- generic/xotcl.c	(.../xotcl.c)	(revision ecc8a110c338877202b900868da32eb8dcd561ad)
+++ generic/xotcl.c	(.../xotcl.c)	(revision de505f4134eb384a34270081e0889818577ef4ef)
@@ -8891,7 +8891,6 @@
   }
   if (tcd->objProc) {
     result = (tcd->objProc)(tcd->clientData, interp, objc, objv);
-    result = (tcd->objProc)(tcd->clientData, interp, objc, objv);
   } else if (tcd->cmdName->typePtr == &XOTclObjectType
              && XOTclObjConvertObject(interp, tcd->cmdName, (void*)&clientData) == TCL_OK) {
     /*fprintf(stderr, "XOTcl object %s, objc=%d\n", ObjStr(tcd->cmdName), objc);*/