Index: generic/xotcl.c
===================================================================
diff -u -rd56d2a8ee3f246c9891783abb09bd820dbc508e4 -r2454ab78913d0686b2ec5feeb401a051dc6a6164
--- generic/xotcl.c	(.../xotcl.c)	(revision d56d2a8ee3f246c9891783abb09bd820dbc508e4)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 2454ab78913d0686b2ec5feeb401a051dc6a6164)
@@ -11067,7 +11067,14 @@
 
   /*fprintf(stderr, "XOTclRelationCmd %s %d rel=%d val='%s'\n",
     objectName(object),withPer_object,relationtype,value?ObjStr(value):"NULL");*/
-  
+  /* set withPer_object according to object- or class- */
+  switch (relationtype) {
+  case RelationtypeObject_mixinIdx: withPer_object = 1; break;
+  case RelationtypeObject_filterIdx: withPer_object = 1; break;
+  case RelationtypeClass_mixinIdx: withPer_object = 0; break;
+  case RelationtypeClass_filterIdx: withPer_object = 0; break;
+  }
+
   if (withPer_object) {
     switch (relationtype) {
     case RelationtypeClass_mixinIdx: