Index: generic/xotcl.c
===================================================================
diff -u -r1ddb61a407f327672ce64aa1c1610e7043c10ec7 -rb385d44db9e33f36d1629fbb0b82cf94d8dffe72
--- generic/xotcl.c	(.../xotcl.c)	(revision 1ddb61a407f327672ce64aa1c1610e7043c10ec7)
+++ generic/xotcl.c	(.../xotcl.c)	(revision b385d44db9e33f36d1629fbb0b82cf94d8dffe72)
@@ -8475,36 +8475,7 @@
   return TCL_OK;
 }
 
-static int XOTclOInstVarMethod(Tcl_Interp *interp, XOTclObject *obj, int objc, Tcl_Obj *CONST objv[]);
-
 extern int
-XOTclInstVar(XOTcl_Object *obji, Tcl_Interp *interp, char *name, char *destName) {
-  XOTclObject *obj = (XOTclObject*) obji;
-  int result;
-  Tcl_Obj *alias = NULL;
-  ALLOC_ON_STACK(Tcl_Obj*, 2, objv);
-
-  objv[0] = XOTclGlobalObjects[XOTE_INSTVAR];
-  objv[1] = Tcl_NewStringObj(name, -1);
-  INCR_REF_COUNT(objv[1]);
-
-  if (destName) {
-    alias = Tcl_NewStringObj(destName, -1);
-    INCR_REF_COUNT(alias);
-    Tcl_ListObjAppendElement(interp, objv[1], alias);
-  }
-
-  result = XOTclOInstVarMethod(interp, obj, 2, objv);
-
-  if (destName) {
-    DECR_REF_COUNT(alias);
-  }
-  DECR_REF_COUNT(objv[1]);
-  FREE_ON_STACK(objv);
-  return result;
-}
-
-extern int
 XOTclRemovePMethod(Tcl_Interp *interp, XOTcl_Object *object, CONST char *methodName) {
   XOTclObject *obj = (XOTclObject*) object;