Index: generic/xotclTrace.c
===================================================================
diff -u -rc72f9f638677608fab1502cd696c8f2d6b2952f9 -r54346e996575a3c1295e4a36c07fd490e63bc5a6
--- generic/xotclTrace.c	(.../xotclTrace.c)	(revision c72f9f638677608fab1502cd696c8f2d6b2952f9)
+++ generic/xotclTrace.c	(.../xotclTrace.c)	(revision 54346e996575a3c1295e4a36c07fd490e63bc5a6)
@@ -16,8 +16,8 @@
 #include "xotclAccessInt.h"
 
 void
-XOTclStackDump(Tcl_Interp *in) {
-  Interp *iPtr = (Interp *) in;
+XOTclStackDump(Tcl_Interp *interp) {
+  Interp *iPtr = (Interp *)interp;
   CallFrame *f = iPtr->framePtr, *v = iPtr->varFramePtr;
   Tcl_Obj *varCmdObj;
 
@@ -31,7 +31,7 @@
     if (f && f->isProcCallFrame && f->procPtr && f->procPtr->cmdPtr) {
       fprintf(stderr,"caller %p ",Tcl_CallFrame_callerPtr(f));
       fprintf(stderr,"callerV %p ",Tcl_CallFrame_callerVarPtr(f));
-      Tcl_GetCommandFullName(in, (Tcl_Command)  f->procPtr->cmdPtr, cmdObj);
+      Tcl_GetCommandFullName(interp, (Tcl_Command)  f->procPtr->cmdPtr, cmdObj);
       fprintf(stderr, "%s (%p) lvl=%d\n", ObjStr(cmdObj), f->procPtr->cmdPtr, f->level);
       DECR_REF_COUNT(cmdObj);
     } else fprintf(stderr, "- \n");
@@ -43,7 +43,7 @@
   fprintf(stderr, "\tFrame=%p", v);
   if (v) {fprintf(stderr, "caller %p", v->callerPtr);}
   if (v && v->isProcCallFrame && v->procPtr && v->procPtr->cmdPtr) {
-    Tcl_GetCommandFullName(in, (Tcl_Command)  v->procPtr->cmdPtr, varCmdObj);
+    Tcl_GetCommandFullName(interp, (Tcl_Command)  v->procPtr->cmdPtr, varCmdObj);
     if (varCmdObj) {
       fprintf(stderr, " %s (%d)\n", ObjStr(varCmdObj), v->level);
     }
@@ -52,8 +52,8 @@
 }
 
 void
-XOTclCallStackDump(Tcl_Interp *in) {
-  XOTclCallStack *cs = &RUNTIME_STATE(in)->cs;
+XOTclCallStackDump(Tcl_Interp *interp) {
+  XOTclCallStack *cs = &RUNTIME_STATE(interp)->cs;
   XOTclCallStackContent *csc;
   int i=1, entries = cs->top - cs->content;
 
@@ -70,7 +70,7 @@
     /*fprintf(stderr, " cmd %p, obj %p, ",csc->cmdPtr, csc->self);*/
 
     if (csc->cmdPtr && !csc->destroyedCmd)
-      fprintf(stderr, "%s (%p), ", Tcl_GetCommandName(in, (Tcl_Command)csc->cmdPtr),
+      fprintf(stderr, "%s (%p), ", Tcl_GetCommandName(interp, (Tcl_Command)csc->cmdPtr),
 	      csc->cmdPtr);
     else 
       fprintf(stderr, "NULL, ");
@@ -90,13 +90,13 @@
   /*
   if (entries > 0) {
     XOTclCallStackContent *c;
-    c = XOTclCallStackFindLastInvocation(in);
+    c = XOTclCallStackFindLastInvocation(interp);
     fprintf(stderr,"     --- findLastInvocation %p ",c);
     if (c) {
       if (c <= cs->top && c->currentFramePtr) 
 	fprintf(stderr," l=%d", Tcl_CallFrame_level(c->currentFramePtr));
     }
-    c = XOTclCallStackFindActiveFrame(in, 1);
+    c = XOTclCallStackFindActiveFrame(interp, 1);
     fprintf(stderr,"     findActiveFrame    %p ",c);
     if (c) {
       if (c <= cs->top && c->currentFramePtr) 
@@ -129,21 +129,21 @@
 */
 
 int
-XOTcl_TraceObjCmd(ClientData cd, Tcl_Interp *in, int objc, Tcl_Obj *CONST objv[]) {
+XOTcl_TraceObjCmd(ClientData cd, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   char *option;
   if (objc != 2)
-    return XOTclObjErrArgCnt(in, NULL, "::xotcl::trace");
+    return XOTclObjErrArgCnt(interp, NULL, "::xotcl::trace");
 
   option = ObjStr(objv[1]);
   if (strcmp(option,"stack") == 0) {
-    XOTclStackDump(in);
+    XOTclStackDump(interp);
     return TCL_OK;
   }
   if (strcmp(option,"callstack") == 0) {
-    XOTclCallStackDump(in);
+    XOTclCallStackDump(interp);
     return TCL_OK;
   }
-  return XOTclVarErrMsg(in, "xotcltrace: unknown option", (char*) NULL);
+  return XOTclVarErrMsg(interp, "xotcltrace: unknown option", (char*) NULL);
 }
 
 #ifdef XOTCL_MEM_COUNT