Index: generic/xotcl.c
===================================================================
diff -u -re767edf5c498094f6e00150541bfb7beab52b619 -r9f7fa883bf6ed48f1401f815caca1e34f56584a1
--- generic/xotcl.c	(.../xotcl.c)	(revision e767edf5c498094f6e00150541bfb7beab52b619)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 9f7fa883bf6ed48f1401f815caca1e34f56584a1)
@@ -141,6 +141,7 @@
 
 typedef struct AliasCmdClientData {
   XOTclObject *obj;
+  XOTclClass *class;
   Tcl_Obj *cmdName;
   Tcl_ObjCmdProc *objProc;
   Tcl_Command aliasedCmd;
@@ -8729,7 +8730,7 @@
   char *methodName = ObjStr(objv[0]);
   /*TODO: resolve the 'real' command at the end of the imported cmd chain */
 
-  return MethodDispatch((ClientData)self, interp, objc, objv, tcd->aliasedCmd, self, self->cl,
+  return MethodDispatch((ClientData)self, interp, objc, objv, tcd->aliasedCmd, self, tcd->class,
                         methodName, 0);
 }
 
@@ -9796,6 +9797,7 @@
     tcd = NEW(AliasCmdClientData);
     tcd->cmdName    = NULL;
     tcd->obj        = object;
+    tcd->class	    = allocation == 'c' ? (XOTclClass *) object : NULL;
     tcd->objProc    = objProc;
     tcd->aliasedCmd = cmd;
     tcd->clientData = Tcl_Command_objClientData(cmd);
@@ -12118,7 +12120,7 @@
 				     int withNomixins, 
 				     int withIncontext, char *pattern) {
 
-  int methodType;
+  int methodType = 0;
 
   switch (withMethodtype) {
   case MethodtypeNULL: /* default */