Index: generic/xotclStack.c
===================================================================
diff -u -r7cb7c751d63fe0eece5756910e3f0b18e61a4d16 -r485f041db31fc83046fbeba0d3e64beeb1abca1f
--- generic/xotclStack.c	(.../xotclStack.c)	(revision 7cb7c751d63fe0eece5756910e3f0b18e61a4d16)
+++ generic/xotclStack.c	(.../xotclStack.c)	(revision 485f041db31fc83046fbeba0d3e64beeb1abca1f)
@@ -253,7 +253,7 @@
  * if "exit" is called and we were jumping out of the
  * callframe
  */
-void CallStackPopAll(Tcl_Interp *interp) {
+static void CallStackPopAll(Tcl_Interp *interp) {
   XOTclCallStack *cs = &RUNTIME_STATE(interp)->cs;
 
   while (cs->top > cs->content)