Index: generic/xotclInt.h
===================================================================
diff -u -rbfeda566de60595825c75d78632d42458bb6cb05 -r7c7a27874dbe5bb88a4261eef778b7fd29979761
--- generic/xotclInt.h	(.../xotclInt.h)	(revision bfeda566de60595825c75d78632d42458bb6cb05)
+++ generic/xotclInt.h	(.../xotclInt.h)	(revision 7c7a27874dbe5bb88a4261eef778b7fd29979761)
@@ -447,6 +447,8 @@
 
 #define XOTclObjectSetClass(obj) \
 	(obj)->flags |= XOTCL_IS_CLASS
+#define XOTclObjectClearClass(obj) \
+	(obj)->flags &= ~XOTCL_IS_CLASS
 #define XOTclObjectIsClass(obj) \
 	((obj)->flags & XOTCL_IS_CLASS)
 #define XOTclObjectToClass(obj) \