Index: generic/xotcl.c
===================================================================
diff -u -rf316e4ef5e27eedc5ed7cb1a4d90ff0d86b53ca8 -raf7d1feab1340a2262c8d8983cb2b26660069e45
--- generic/xotcl.c	(.../xotcl.c)	(revision f316e4ef5e27eedc5ed7cb1a4d90ff0d86b53ca8)
+++ generic/xotcl.c	(.../xotcl.c)	(revision af7d1feab1340a2262c8d8983cb2b26660069e45)
@@ -3658,7 +3658,7 @@
   assert(obj->flags & XOTCL_MIXIN_ORDER_VALID);
   /*MixinComputeDefined(interp, obj);*/
   cmdList = seekCurrent(obj->mixinStack->currentCmdPtr, obj->mixinOrder);
-  RUNTIME_STATE(interp)->cmdPtr = cmdList->cmdPtr;
+  RUNTIME_STATE(interp)->cmdPtr = cmdList ? cmdList->cmdPtr : NULL;
 
   /*
     fprintf(stderr, "MixinSearch searching for '%s' %p\n", methodName, cmdList);
@@ -9913,10 +9913,6 @@
   Tcl_Command cmd = NULL;
   char allocation;
 
-  fprintf(stderr, "##### methodproperty = %d\n",methodproperty);
-
-  /* TODO: introspection for method properties */
-
   if (XOTclObjectIsClass(object)) {
     cl = (XOTclClass *)object;
     allocation = 'c';
@@ -12887,7 +12883,7 @@
 #endif
     Tcl_CreateObjCommand(interp, "::xotcl::next", XOTclNextObjCmd, 0, 0);
 #ifdef XOTCL_BYTECODE
-  instructions[INST_SELF].cmdPtr = (Command *)
+  instructions[INST_SELF].cmdPtr = (Command *)Tcl_FindCommand(interp, "::xotcl::self", 0, 0);
 #endif
   /*Tcl_CreateObjCommand(interp, "::xotcl::K", XOTclKObjCmd, 0, 0);*/