Index: generic/xotcl.c
===================================================================
diff -u -rb4343163673181630db0867d949d501948ecc746 -r58c2c3096136af10d87e4d2962c3d744a9e383bd
--- generic/xotcl.c	(.../xotcl.c)	(revision b4343163673181630db0867d949d501948ecc746)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 58c2c3096136af10d87e4d2962c3d744a9e383bd)
@@ -12368,12 +12368,12 @@
   flags = Tcl_Interp_flags(interp);
   Tcl_Interp_flags(interp) &= ~DELETED;
 
+  CallStackPopAll(interp);
+
   if (RUNTIME_STATE(interp)->exitHandlerDestroyRound == XOTCL_EXITHANDLER_OFF) {
     XOTclFinalizeObjCmd(interp);
   }
 
-  CallStackPopAll(interp);
-
   /* must be before freeing of XOTclGlobalObjects */
   XOTclShadowTclCommands(interp, SHADOW_UNLOAD);