Index: generic/xotclStack85.c
===================================================================
diff -u -rf6775105babd749f662856c7eff1a903636e80e0 -rcefa8e6f9be67238cc954372506d39d84b80e179
--- generic/xotclStack85.c	(.../xotclStack85.c)	(revision f6775105babd749f662856c7eff1a903636e80e0)
+++ generic/xotclStack85.c	(.../xotclStack85.c)	(revision cefa8e6f9be67238cc954372506d39d84b80e179)
@@ -28,8 +28,9 @@
             Tcl_CallFrame_objc(framePtr) ? ObjStr(Tcl_CallFrame_objv(framePtr)[0]) : "(null)",
             Tcl_CallFrame_objc(framePtr) ? Tcl_CallFrame_objc(framePtr) : -1);
     if (csc) {
-      fprintf(stderr, " frameType %d %p %s\n",
+      fprintf(stderr, " frameType %d callType %d (%p %s)\n",
               csc ? csc->frameType : -1,
+              csc ? csc->callType : -1,
               csc ? csc->self : NULL, 
               csc ? objectName(csc->self) : "");
     } else {