Index: generic/nsfShadow.c =================================================================== diff -u -r8651e9f7d6d526196cfe4dad14d08b857a66f5d8 -rc341df315dd3856f25f65ec54abb61277268d29b --- generic/nsfShadow.c (.../nsfShadow.c) (revision 8651e9f7d6d526196cfe4dad14d08b857a66f5d8) +++ generic/nsfShadow.c (.../nsfShadow.c) (revision c341df315dd3856f25f65ec54abb61277268d29b) @@ -179,6 +179,15 @@ } Tcl_ListObjAppendElement(interp, listObj, Tcl_NewStringObj(frameType,-1)); Tcl_SetObjResult(interp, listObj); + } else if (frameFlags & (FRAME_IS_NSF_OBJECT)) { + NsfObject *object = (NsfObject *)Tcl_CallFrame_clientData(varFramePtr); + //Tcl_Obj *listObj = Tcl_NewListObj(0, NULL); + + Tcl_ListObjAppendElement(interp, resultObj, Tcl_NewStringObj("object",6)); + Tcl_ListObjAppendElement(interp, resultObj, object->cmdName); + Tcl_ListObjAppendElement(interp, resultObj, Tcl_NewStringObj("frameType",9)); + Tcl_ListObjAppendElement(interp, resultObj, Tcl_NewStringObj("object",6)); + Tcl_SetObjResult(interp, resultObj); } }