Index: generic/xotclInt.h =================================================================== diff -u -r465589c61a1671ae9712de8d6361d842bd5841c0 -r04a8acdb23193c6b36b339e085dd9f6814448a8d --- generic/xotclInt.h (.../xotclInt.h) (revision 465589c61a1671ae9712de8d6361d842bd5841c0) +++ generic/xotclInt.h (.../xotclInt.h) (revision 04a8acdb23193c6b36b339e085dd9f6814448a8d) @@ -271,14 +271,15 @@ # define XOTcl_PushFrameCd(obj) # endif #define XOTcl_PushFrame(interp,obj) \ + /*fprintf(stderr,"PUSH OBJECT_FRAME (XOTcl_PushFrame) frame %p\n",framePtr); */ \ if ((obj)->nsPtr) { \ frame_constructed = 0; \ /*fprintf(stderr,"XOTcl_PushFrame frame %p\n",framePtr);*/ \ Tcl_PushCallFrame(interp, (Tcl_CallFrame*)framePtr, (obj)->nsPtr, 0|FRAME_IS_XOTCL_OBJECT); \ } else { \ CallFrame *myframePtr = (CallFrame *)framePtr; \ /*fprintf(stderr,"XOTcl_PushFrame frame %p (with fakeNS)\n",framePtr);*/ \ - Tcl_PushCallFrame(interp, (Tcl_CallFrame*)framePtr, RUNTIME_STATE(interp)->fakeNS, 1|FRAME_IS_XOTCL_OBJECT); \ + Tcl_PushCallFrame(interp, (Tcl_CallFrame*)framePtr, RUNTIME_STATE(interp)->fakeNS /*Tcl_Interp_varFramePtr(interp)->nsPtr*/, 1|FRAME_IS_XOTCL_OBJECT); \ Tcl_CallFrame_procPtr(myframePtr) = &RUNTIME_STATE(interp)->fakeProc; \ Tcl_CallFrame_varTablePtr(myframePtr) = (obj)->varTable; \ } \ @@ -294,7 +295,7 @@ Tcl_CallFrame_varTablePtr(myframe) = 0; \ Tcl_CallFrame_procPtr(myframe) = 0; \ } \ - /*fprintf(stderr,"XOTcl_PopFrame frame %p\n",framePtr); */ \ + /*fprintf(stderr,"POP OBJECT_FRAME (XOTcl_PopFrame) frame %p\n",framePtr); */ \ Tcl_PopCallFrame(interp) #endif