Index: generic/xotcl.c
===================================================================
diff -u -r42c96835f26177eacc9fda76997adf0c0812ec59 -rd34c425b8c87ad62b8879114f4aa8454162f09ed
--- generic/xotcl.c	(.../xotcl.c)	(revision 42c96835f26177eacc9fda76997adf0c0812ec59)
+++ generic/xotcl.c	(.../xotcl.c)	(revision d34c425b8c87ad62b8879114f4aa8454162f09ed)
@@ -12329,8 +12329,13 @@
   return result;
 }
 
-static int XOTclCInstFilterGuardMethod(Tcl_Interp *interp, XOTclClass *cl, char *filter, Tcl_Obj *guard) {
+static int XOTclCFilterGuardMethod(Tcl_Interp *interp, XOTclClass *cl, 
+                                   int withPer_object, char *filter, Tcl_Obj *guard) {
   XOTclClassOpt *opt = cl->opt;
+  
+  if (withPer_object) {
+    return XOTclOFilterGuardMethod(interp, &cl->object, filter, guard);
+  }
 
   if (opt && opt->instfilters) {
     XOTclCmdList *h = CmdListFindNameInList(interp, filter, opt->instfilters);