Index: generic/xotclStack85.c
===================================================================
diff -u -r63626dfe7b97728f4103a7873214038e7b15d74e -r35e0efc0d8851a10c70071c12112b11538ce97af
--- generic/xotclStack85.c	(.../xotclStack85.c)	(revision 63626dfe7b97728f4103a7873214038e7b15d74e)
+++ generic/xotclStack85.c	(.../xotclStack85.c)	(revision 35e0efc0d8851a10c70071c12112b11538ce97af)
@@ -92,6 +92,7 @@
   Tcl_PushCallFrame(interp, framePtr, Tcl_CallFrame_nsPtr(varFramePtr), 
 		    1|FRAME_IS_XOTCL_CMETHOD);
   Tcl_CallFrame_clientData(framePtr) = (ClientData)cscPtr;
+  Tcl_CallFrame_procPtr(framePtr) = &RUNTIME_STATE(interp)->fakeProc;
 }
 
 static void XOTcl_PopFrameCsc(Tcl_Interp *interp, Tcl_CallFrame *framePtr) {