Index: generic/xotclStack.c
===================================================================
diff -u -rf35b43e489c5afc42555b65a729410aa6431b18f -r457ad3038f20a9cb9869fbabd3773c00a973d0ee
--- generic/xotclStack.c	(.../xotclStack.c)	(revision f35b43e489c5afc42555b65a729410aa6431b18f)
+++ generic/xotclStack.c	(.../xotclStack.c)	(revision 457ad3038f20a9cb9869fbabd3773c00a973d0ee)
@@ -1,5 +1,7 @@
 #if !defined(TCL85STACK)
 
+Tcl_CallFrame * nonXotclObjectProcFrame(Tcl_CallFrame *framePtr) {return framePtr;}
+
 XOTCLINLINE static XOTclObject*
 GetSelfObj(Tcl_Interp *interp) {
   return CallStackGetFrame(interp, NULL)->self;