Index: generic/xotclInt.h
===================================================================
diff -u -r8cd07ec2847e5ccff9f486950459d72a4d497e8b -r98003953e8c728b105528e0c2ed7d67ee7135d64
--- generic/xotclInt.h	(.../xotclInt.h)	(revision 8cd07ec2847e5ccff9f486950459d72a4d497e8b)
+++ generic/xotclInt.h	(.../xotclInt.h)	(revision 98003953e8c728b105528e0c2ed7d67ee7135d64)
@@ -338,6 +338,7 @@
 #endif
 
 #define className(cl) (cl ? ObjStr(cl->object.cmdName) : "")
+#define objectName(obj) (ObjStr(obj->cmdName))
 
 
 #define LONG_AS_STRING 32