Index: generic/xotclShadow.c
===================================================================
diff -u -rd1369a8b2d5b02d622a18cfccc2f9dd99959d05d -rb9eae4f9d548939af915f0f27141389d18172485
--- generic/xotclShadow.c	(.../xotclShadow.c)	(revision d1369a8b2d5b02d622a18cfccc2f9dd99959d05d)
+++ generic/xotclShadow.c	(.../xotclShadow.c)	(revision b9eae4f9d548939af915f0f27141389d18172485)
@@ -110,7 +110,6 @@
 static int
 XOTcl_InfoFrameObjCmd(ClientData cd, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   int result;
-  CONST char* resultString; 
 
   result = XOTclCallCommand(interp, XOTE_INFO_FRAME, objc, objv);
 
@@ -143,7 +142,10 @@
       Tcl_ListObjAppendElement(interp, resultObj, Tcl_NewStringObj("object",6));
       Tcl_ListObjAppendElement(interp, resultObj, cscPtr->self->cmdName);
       Tcl_ListObjAppendElement(interp, resultObj, Tcl_NewStringObj("class",5));
-      Tcl_ListObjAppendElement(interp, resultObj, cscPtr->cl ? cscPtr->cl->object.cmdName : XOTclGlobalObjects[XOTE_EMPTY]);
+      Tcl_ListObjAppendElement(interp, resultObj, 
+                               cscPtr->cl ? cscPtr->cl->object.cmdName : XOTclGlobalObjects[XOTE_EMPTY]);
+      Tcl_ListObjAppendElement(interp, resultObj, Tcl_NewStringObj("frametype",9));
+      Tcl_ListObjAppendElement(interp, resultObj, Tcl_NewIntObj(cscPtr->frameType));
     }
   }