Index: generic/xotcl.c
===================================================================
diff -u -r04a8acdb23193c6b36b339e085dd9f6814448a8d -rda3eff74a0a1f600806b41b54f9e18043b5ba1a7
--- generic/xotcl.c	(.../xotcl.c)	(revision 04a8acdb23193c6b36b339e085dd9f6814448a8d)
+++ generic/xotcl.c	(.../xotcl.c)	(revision da3eff74a0a1f600806b41b54f9e18043b5ba1a7)
@@ -9474,13 +9474,21 @@
 
 #if defined(TCL85STACK)
 void tcl85showStack(Tcl_Interp *interp) {
-  Tcl_CallFrame *inFramePtr = (Tcl_CallFrame *)Tcl_Interp_varFramePtr(interp), *varFramePtr = inFramePtr;
-  for (; varFramePtr; varFramePtr = Tcl_CallFrame_callerPtr(varFramePtr)) {
+  Tcl_CallFrame *framePtr = (Tcl_CallFrame *)Tcl_Interp_varFramePtr(interp);
+  for (; framePtr; framePtr = Tcl_CallFrame_callerPtr(framePtr)) {
     fprintf(stderr, "... frame %p flags %.6x cd %p objv[0] %s\n",
-            varFramePtr, Tcl_CallFrame_isProcCallFrame(varFramePtr), 
-            Tcl_CallFrame_clientData(varFramePtr),
-            Tcl_CallFrame_objc(varFramePtr) ? ObjStr(Tcl_CallFrame_objv(varFramePtr)[0]) : "(null)");
+            framePtr, Tcl_CallFrame_isProcCallFrame(framePtr), 
+            Tcl_CallFrame_clientData(framePtr),
+            Tcl_CallFrame_objc(framePtr) ? ObjStr(Tcl_CallFrame_objv(framePtr)[0]) : "(null)");
   }
+  framePtr = (Tcl_CallFrame *)Tcl_Interp_framePtr(interp);
+  for (; framePtr; framePtr = Tcl_CallFrame_callerPtr(framePtr)) {
+    fprintf(stderr, "... var frame %p flags %.6x cd %p objv[0] %s\n",
+            framePtr, Tcl_CallFrame_isProcCallFrame(framePtr), 
+            Tcl_CallFrame_clientData(framePtr),
+            Tcl_CallFrame_objc(framePtr) ? ObjStr(Tcl_CallFrame_objv(framePtr)[0]) : "(null)");
+  
+  }
 }
 Tcl_CallFrame *
 nonXotclObjectFrame(Tcl_CallFrame *framePtr) {