Index: generic/xotcl.c
===================================================================
diff -u -rae1f8003c9b771906e285970f31ff9f12ce40558 -r5008260d12072f5542b81dfed2d512f906326e32
--- generic/xotcl.c	(.../xotcl.c)	(revision ae1f8003c9b771906e285970f31ff9f12ce40558)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 5008260d12072f5542b81dfed2d512f906326e32)
@@ -12867,7 +12867,7 @@
 /* TODO: this method should be removed, we should register XOTclClassInfoMixinMethod for 
    xotcl1 under name ... instmxin ... */
 
-static int XOTclClassInfoInstmixinguardMethod(Tcl_Interp *interp, XOTclClass * class, char * mixin) {
+static int XOTclClassInfoMixinguardMethod(Tcl_Interp *interp, XOTclClass * class, char * mixin) {
   return class->opt ? GuardList(interp, class->opt->instmixins, mixin) : TCL_OK;
 }