*** generic/tclBasic.c.orig	Tue Jul 20 09:26:37 2010
--- generic/tclBasic.c	Tue Jul 20 09:28:49 2010
***************
*** 475,483 ****
       * the Tcl_CallFrame structure (or vice versa).
       */
  
!     if (sizeof(Tcl_CallFrame) != sizeof(CallFrame)) {
  	/*NOTREACHED*/
! 	Tcl_Panic("Tcl_CallFrame and CallFrame are not the same size");
      }
  
      if (cancelTableInitialized == 0) {
--- 475,483 ----
       * the Tcl_CallFrame structure (or vice versa).
       */
  
!     if (sizeof(Tcl_CallFrame) < sizeof(CallFrame)) {
  	/*NOTREACHED*/
! 	Tcl_Panic("Tcl_CallFrame must not be smaller than CallFrame");
      }
  
      if (cancelTableInitialized == 0) {
