Index: generic/xotcl.c
===================================================================
diff -u -r6db1260f0b59b82fa839fdd841138c413ce00c8b -r7d9452f6a7cc8b99fd09058dfbb8992e0cba5b9e
--- generic/xotcl.c	(.../xotcl.c)	(revision 6db1260f0b59b82fa839fdd841138c413ce00c8b)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 7d9452f6a7cc8b99fd09058dfbb8992e0cba5b9e)
@@ -10642,6 +10642,14 @@
 }
 
 /*
+ * ::xotcl::exists command
+ */
+static int XOTclExistsCmd(Tcl_Interp *interp, XOTclObject *obj, char *var) {
+  Tcl_SetIntObj(Tcl_GetObjResult(interp), varExists(interp, obj, var, NULL, 1, 1));
+  return TCL_OK;
+}
+
+/*
  * ::xotcl::finalize command
  */
 static int destroyObjectSystems(Tcl_Interp *interp);