*** generic/tclAlloc.c	23 Apr 2002 17:03:34 -0000	1.16
--- generic/tclAlloc.c	24 Dec 2003 01:46:23 -0000
***************
*** 140,147 ****
  #endif
  
  #if defined(DEBUG) || defined(RCHECK)
! #define	ASSERT(p)   if (!(p)) panic(# p)
! #define RANGE_ASSERT(p) if (!(p)) panic(# p)
  #else
  #define	ASSERT(p)
  #define RANGE_ASSERT(p)
--- 140,147 ----
  #endif
  
  #if defined(DEBUG) || defined(RCHECK)
! #define	ASSERT(p)   if (!(p)) Tcl_Panic(# p)
! #define RANGE_ASSERT(p) if (!(p)) Tcl_Panic(# p)
  #else
  #define	ASSERT(p)
  #define RANGE_ASSERT(p)

*** generic/tclBasic.c	14 Nov 2003 20:44:44 -0000	1.93
--- generic/tclBasic.c	24 Dec 2003 01:46:28 -0000
***************
*** 293,299 ****
  
      if (sizeof(Tcl_CallFrame) != sizeof(CallFrame)) {
  	/*NOTREACHED*/
!         panic("Tcl_CallFrame and CallFrame are not the same size");
      }
  
      /*
--- 293,299 ----
  
      if (sizeof(Tcl_CallFrame) != sizeof(CallFrame)) {
  	/*NOTREACHED*/
!         Tcl_Panic("Tcl_CallFrame and CallFrame are not the same size");
      }
  
      /*
***************
*** 371,377 ****
      iPtr->globalNsPtr = (Namespace *) Tcl_CreateNamespace(interp, "",
  	    (ClientData) NULL, (Tcl_NamespaceDeleteProc *) NULL);
      if (iPtr->globalNsPtr == NULL) {
!         panic("Tcl_CreateInterp: can't create global namespace");
      }
  
      /*
--- 371,377 ----
      iPtr->globalNsPtr = (Namespace *) Tcl_CreateNamespace(interp, "",
  	    (ClientData) NULL, (Tcl_NamespaceDeleteProc *) NULL);
      if (iPtr->globalNsPtr == NULL) {
!         Tcl_Panic("Tcl_CreateInterp: can't create global namespace");
      }
  
      /*
***************
*** 445,451 ****
  	if ((cmdInfoPtr->proc == (Tcl_CmdProc *) NULL)
  	        && (cmdInfoPtr->objProc == (Tcl_ObjCmdProc *) NULL)
  	        && (cmdInfoPtr->compileProc == (CompileProc *) NULL)) {
! 	    panic("Tcl_CreateInterp: builtin command with NULL string and object command procs and a NULL compile proc\n");
  	}
  	
  	hPtr = Tcl_CreateHashEntry(&iPtr->globalNsPtr->cmdTable,
--- 445,451 ----
  	if ((cmdInfoPtr->proc == (Tcl_CmdProc *) NULL)
  	        && (cmdInfoPtr->objProc == (Tcl_ObjCmdProc *) NULL)
  	        && (cmdInfoPtr->compileProc == (CompileProc *) NULL)) {
! 	    Tcl_Panic("Tcl_CreateInterp: builtin command with NULL string and object command procs and a NULL compile proc\n");
  	}
  	
  	hPtr = Tcl_CreateHashEntry(&iPtr->globalNsPtr->cmdTable,
***************
*** 493,499 ****
  	hPtr = Tcl_FindHashEntry(&iPtr->mathFuncTable,
  		builtinFuncPtr->name);
  	if (hPtr == NULL) {
! 	    panic("Tcl_CreateInterp: Tcl_CreateMathFunc incorrectly registered '%s'", builtinFuncPtr->name);
  	    return NULL;
  	}
  	mathFuncPtr = (MathFunc *) Tcl_GetHashValue(hPtr);
--- 493,499 ----
  	hPtr = Tcl_FindHashEntry(&iPtr->mathFuncTable,
  		builtinFuncPtr->name);
  	if (hPtr == NULL) {
! 	    Tcl_Panic("Tcl_CreateInterp: Tcl_CreateMathFunc incorrectly registered '%s'", builtinFuncPtr->name);
  	    return NULL;
  	}
  	mathFuncPtr = (MathFunc *) Tcl_GetHashValue(hPtr);
***************
*** 975,981 ****
       */
      
      if (iPtr->numLevels > 0) {
!         panic("DeleteInterpProc called with active evals");
      }
  
      /*
--- 975,981 ----
       */
      
      if (iPtr->numLevels > 0) {
!         Tcl_Panic("DeleteInterpProc called with active evals");
      }
  
      /*
***************
*** 984,990 ****
       */
  
      if (!(iPtr->flags & DELETED)) {
!         panic("DeleteInterpProc called on interpreter not marked deleted");
      }
  
      TclHandleFree(iPtr->handle);
--- 984,990 ----
       */
  
      if (!(iPtr->flags & DELETED)) {
!         Tcl_Panic("DeleteInterpProc called on interpreter not marked deleted");
      }
  
      TclHandleFree(iPtr->handle);
***************
*** 1364,1370 ****
      if ( cmdPtr->nsPtr != iPtr->globalNsPtr ) {
  	/* 
  	 * This case is theoritically impossible,
! 	 * we might rather panic() than 'nicely' erroring out ?
  	 */
          Tcl_AppendStringsToObj(Tcl_GetObjResult(interp),
                  "trying to expose a non global command name space command",
--- 1364,1370 ----
      if ( cmdPtr->nsPtr != iPtr->globalNsPtr ) {
  	/* 
  	 * This case is theoritically impossible,
! 	 * we might rather Tcl_Panic() than 'nicely' erroring out ?
  	 */
          Tcl_AppendStringsToObj(Tcl_GetObjResult(interp),
                  "trying to expose a non global command name space command",

*** generic/tclBinary.c	17 Dec 2003 18:40:07 -0000	1.15
--- generic/tclBinary.c	24 Dec 2003 01:46:31 -0000
***************
*** 265,271 ****
      ByteArray *byteArrayPtr;
  
      if (Tcl_IsShared(objPtr)) {
! 	panic("Tcl_SetByteArrayObj called with shared object");
      }
      typePtr = objPtr->typePtr;
      if ((typePtr != NULL) && (typePtr->freeIntRepProc != NULL)) {
--- 265,271 ----
      ByteArray *byteArrayPtr;
  
      if (Tcl_IsShared(objPtr)) {
! 	Tcl_Panic("Tcl_SetByteArrayObj called with shared object");
      }
      typePtr = objPtr->typePtr;
      if ((typePtr != NULL) && (typePtr->freeIntRepProc != NULL)) {
***************
*** 347,353 ****
      ByteArray *byteArrayPtr, *newByteArrayPtr;
      
      if (Tcl_IsShared(objPtr)) {
! 	panic("Tcl_SetObjLength called with shared object");
      }
      if (objPtr->typePtr != &tclByteArrayType) {
  	SetByteArrayFromAny(NULL, objPtr);
--- 347,353 ----
      ByteArray *byteArrayPtr, *newByteArrayPtr;
      
      if (Tcl_IsShared(objPtr)) {
! 	Tcl_Panic("Tcl_SetObjLength called with shared object");
      }
      if (objPtr->typePtr != &tclByteArrayType) {
  	SetByteArrayFromAny(NULL, objPtr);

*** generic/tclCkalloc.c	19 Jan 2003 07:21:18 -0000	1.19
--- generic/tclCkalloc.c	24 Dec 2003 01:46:34 -0000
***************
*** 231,237 ****
          fflush(stderr);  /* In case name pointer is bad. */
          fprintf(stderr, "%ld bytes allocated at (%s %d)\n", memHeaderP->length,
  		memHeaderP->file, memHeaderP->line);
!         panic ("Memory validation failure");
      }
  
      hiPtr = (unsigned char *)memHeaderP->body + memHeaderP->length;
--- 231,237 ----
          fflush(stderr);  /* In case name pointer is bad. */
          fprintf(stderr, "%ld bytes allocated at (%s %d)\n", memHeaderP->length,
  		memHeaderP->file, memHeaderP->line);
!         Tcl_Panic("Memory validation failure");
      }
  
      hiPtr = (unsigned char *)memHeaderP->body + memHeaderP->length;
***************
*** 254,260 ****
          fprintf(stderr, "%ld bytes allocated at (%s %d)\n",
  		memHeaderP->length, memHeaderP->file,
  		memHeaderP->line);
!         panic("Memory validation failure");
      }
  
      if (nukeGuards) {
--- 254,260 ----
          fprintf(stderr, "%ld bytes allocated at (%s %d)\n",
  		memHeaderP->length, memHeaderP->file,
  		memHeaderP->line);
!         Tcl_Panic("Memory validation failure");
      }
  
      if (nukeGuards) {
***************
*** 378,384 ****
      if (result == NULL) {
          fflush(stdout);
          TclDumpMemoryInfo(stderr);
!         panic("unable to alloc %u bytes, %s line %d", size, file, line);
      }
  
      /*
--- 378,384 ----
      if (result == NULL) {
          fflush(stdout);
          TclDumpMemoryInfo(stderr);
!         Tcl_Panic("unable to alloc %u bytes, %s line %d", size, file, line);
      }
  
      /*
***************
*** 539,545 ****
   * Tcl_DbCkfree - debugging ckfree
   *
   *        Verify that the low and high guards are intact, and if so
!  *        then free the buffer else panic.
   *
   *        The guards are erased after being checked to catch duplicate
   *        frees.
--- 539,545 ----
   * Tcl_DbCkfree - debugging ckfree
   *
   *        Verify that the low and high guards are intact, and if so
!  *        then free the buffer else Tcl_Panic.
   *
   *        The guards are erased after being checked to catch duplicate
   *        frees.
***************
*** 1010,1016 ****
       * a special pointer on failure, but we only check for NULL
       */
      if ((result == NULL) && size) {
! 	panic("unable to alloc %u bytes", size);
      }
      return result;
  }
--- 1010,1016 ----
       * a special pointer on failure, but we only check for NULL
       */
      if ((result == NULL) && size) {
! 	Tcl_Panic("unable to alloc %u bytes", size);
      }
      return result;
  }
***************
*** 1027,1033 ****
  
      if ((result == NULL) && size) {
          fflush(stdout);
!         panic("unable to alloc %u bytes, %s line %d", size, file, line);
      }
      return result;
  }
--- 1027,1033 ----
  
      if ((result == NULL) && size) {
          fflush(stdout);
!         Tcl_Panic("unable to alloc %u bytes, %s line %d", size, file, line);
      }
      return result;
  }
***************
*** 1085,1091 ****
      result = TclpRealloc(ptr, size);
  
      if ((result == NULL) && size) {
! 	panic("unable to realloc %u bytes", size);
      }
      return result;
  }
--- 1085,1091 ----
      result = TclpRealloc(ptr, size);
  
      if ((result == NULL) && size) {
! 	Tcl_Panic("unable to realloc %u bytes", size);
      }
      return result;
  }
***************
*** 1103,1109 ****
  
      if ((result == NULL) && size) {
          fflush(stdout);
!         panic("unable to realloc %u bytes, %s line %d", size, file, line);
      }
      return result;
  }
--- 1103,1109 ----
  
      if ((result == NULL) && size) {
          fflush(stdout);
!         Tcl_Panic("unable to realloc %u bytes, %s line %d", size, file, line);
      }
      return result;
  }

*** generic/tclCmdAH.c	17 Dec 2003 17:47:28 -0000	1.38
--- generic/tclCmdAH.c	24 Dec 2003 01:46:37 -0000
***************
*** 1906,1917 ****
  	    result = Tcl_ListObjGetElements(interp, argObjv[1+i*2],
  		    &varcList[i], &varvList[i]);
  	    if (result != TCL_OK) {
! 		panic("Tcl_ForeachObjCmd: could not reconvert variable list %d to a list object\n", i);
  	    }
  	    result = Tcl_ListObjGetElements(interp, argObjv[2+i*2],
  		    &argcList[i], &argvList[i]);
  	    if (result != TCL_OK) {
! 		panic("Tcl_ForeachObjCmd: could not reconvert value list %d to a list object\n", i);
  	    }
  	    
  	    for (v = 0;  v < varcList[i];  v++) {
--- 1906,1917 ----
  	    result = Tcl_ListObjGetElements(interp, argObjv[1+i*2],
  		    &varcList[i], &varvList[i]);
  	    if (result != TCL_OK) {
! 		Tcl_Panic("Tcl_ForeachObjCmd: could not reconvert variable list %d to a list object\n", i);
  	    }
  	    result = Tcl_ListObjGetElements(interp, argObjv[2+i*2],
  		    &argcList[i], &argvList[i]);
  	    if (result != TCL_OK) {
! 		Tcl_Panic("Tcl_ForeachObjCmd: could not reconvert value list %d to a list object\n", i);
  	    }
  	    
  	    for (v = 0;  v < varcList[i];  v++) {

*** generic/tclCmdIL.c	3 Nov 2003 12:48:52 -0000	1.57
--- generic/tclCmdIL.c	24 Dec 2003 01:46:40 -0000
***************
*** 2693,2699 ****
       * We allocate using attemptckalloc() because if we ask for
       * something big but can't get it, we've still got a high chance
       * of having a proper failover strategy.  If *that* fails to get
!      * memory, panic() will happen just a few lines lower...
       */
  
      if ((unsigned)elementCount > INT_MAX/sizeof(Tcl_Obj *)/objc) {
--- 2693,2699 ----
       * We allocate using attemptckalloc() because if we ask for
       * something big but can't get it, we've still got a high chance
       * of having a proper failover strategy.  If *that* fails to get
!      * memory, Tcl_Panic() will happen just a few lines lower...
       */
  
      if ((unsigned)elementCount > INT_MAX/sizeof(Tcl_Obj *)/objc) {

*** generic/tclCmdMZ.c	14 Dec 2003 18:32:36 -0000	1.97
--- generic/tclCmdMZ.c	24 Dec 2003 01:46:44 -0000
***************
*** 2515,2521 ****
  		break;
  	    }
  	    default: {
! 		panic("Tcl_SubstObjCmd: bad option index to SubstOptions");
  	    }
  	}
      }
--- 2515,2521 ----
  		break;
  	    }
  	    default: {
! 		Tcl_Panic("Tcl_SubstObjCmd: bad option index to SubstOptions");
  	    }
  	}
      }
***************
*** 2868,2874 ****
  		 * This shouldn't happen since we've checked that the
  		 * last body is not a continuation...
  		 */
! 		panic("fall-out when searching for body to match pattern");
  	    }
  	    if (strcmp(Tcl_GetString(objv[j]), "-") != 0) {
  		break;
--- 2868,2874 ----
  		 * This shouldn't happen since we've checked that the
  		 * last body is not a continuation...
  		 */
! 		Tcl_Panic("fall-out when searching for body to match pattern");
  	    }
  	    if (strcmp(Tcl_GetString(objv[j]), "-") != 0) {
  		break;

*** generic/tclCompCmds.c	30 Oct 2003 22:52:59 -0000	1.51
--- generic/tclCompCmds.c	24 Dec 2003 01:46:48 -0000
***************
*** 371,377 ****
       */
  
      if (TclFixupForwardJumpToHere(envPtr, &jumpFixup, 127)) {
! 	panic("TclCompileCatchCmd: bad jump distance %d\n",
  		(envPtr->codeNext - envPtr->codeStart) - jumpFixup.codeOffset);
      }
      TclEmitOpcode(INST_END_CATCH, envPtr);
--- 371,377 ----
       */
  
      if (TclFixupForwardJumpToHere(envPtr, &jumpFixup, 127)) {
! 	Tcl_Panic("TclCompileCatchCmd: bad jump distance %d\n",
  		(envPtr->codeNext - envPtr->codeStart) - jumpFixup.codeOffset);
      }
      TclEmitOpcode(INST_END_CATCH, envPtr);
***************
*** 1447,1453 ****
  		jumpFalseDist += 3;
  		TclStoreInt4AtPtr(jumpFalseDist, (ifFalsePc + 1));
  	    } else {
! 		panic("TclCompileIfCmd: unexpected opcode updating ifFalse jump");
  	    }
  	}
      }
--- 1447,1453 ----
  		jumpFalseDist += 3;
  		TclStoreInt4AtPtr(jumpFalseDist, (ifFalsePc + 1));
  	    } else {
! 		Tcl_Panic("TclCompileIfCmd: unexpected opcode updating ifFalse jump");
  	    }
  	}
      }
***************
*** 3061,3067 ****
  		TclEmitInstInt1(INST_STR_MATCH, /*nocase*/0, envPtr);
  		break;
  	    default:
! 		panic("unknown switch mode: %d",mode);
  	    }
  	    /*
  	     * Process fall-through clauses here...
--- 3061,3067 ----
  		TclEmitInstInt1(INST_STR_MATCH, /*nocase*/0, envPtr);
  		break;
  	    default:
! 		Tcl_Panic("unknown switch mode: %d",mode);
  	    }
  	    /*
  	     * Process fall-through clauses here...

*** generic/tclCompExpr.c	14 Oct 2003 15:44:52 -0000	1.16
--- generic/tclCompExpr.c	24 Dec 2003 01:46:50 -0000
***************
*** 351,357 ****
      char buffer[TCL_UTF_MAX];
  
      if (exprTokenPtr->type != TCL_TOKEN_SUB_EXPR) {
! 	panic("CompileSubExpr: token type %d not TCL_TOKEN_SUB_EXPR\n",
  	        exprTokenPtr->type);
      }
      code = TCL_OK;
--- 351,357 ----
      char buffer[TCL_UTF_MAX];
  
      if (exprTokenPtr->type != TCL_TOKEN_SUB_EXPR) {
! 	Tcl_Panic("CompileSubExpr: token type %d not TCL_TOKEN_SUB_EXPR\n",
  	        exprTokenPtr->type);
      }
      code = TCL_OK;
***************
*** 532,545 ****
  		    break;
  		    
  		default:
! 		    panic("CompileSubExpr: unexpected operator %d requiring special treatment\n",
  		        opIndex);
  	    } /* end switch on operator requiring special treatment */
  	    infoPtr->hasOperators = 1;
  	    break;
  
          default:
! 	    panic("CompileSubExpr: unexpected token type %d\n",
  	            tokenPtr->type);
      }
  
--- 532,545 ----
  		    break;
  		    
  		default:
! 		    Tcl_Panic("CompileSubExpr: unexpected operator %d requiring special treatment\n",
  		        opIndex);
  	    } /* end switch on operator requiring special treatment */
  	    infoPtr->hasOperators = 1;
  	    break;
  
          default:
! 	    Tcl_Panic("CompileSubExpr: unexpected token type %d\n",
  	            tokenPtr->type);
      }
  
***************
*** 624,630 ****
      dist = (envPtr->codeNext - envPtr->codeStart) - lhsTrueFixup.codeOffset;
      if (TclFixupForwardJump(envPtr, &lhsTrueFixup, dist, 127)) {
          badDist:
! 	panic("CompileLandOrLorExpr: bad jump distance %d\n", dist);
      }
      envPtr->currStackDepth = savedStackDepth;
      TclEmitPush(TclRegisterNewLiteral(envPtr, "1", 1), envPtr);
--- 624,630 ----
      dist = (envPtr->codeNext - envPtr->codeStart) - lhsTrueFixup.codeOffset;
      if (TclFixupForwardJump(envPtr, &lhsTrueFixup, dist, 127)) {
          badDist:
! 	Tcl_Panic("CompileLandOrLorExpr: bad jump distance %d\n", dist);
      }
      envPtr->currStackDepth = savedStackDepth;
      TclEmitPush(TclRegisterNewLiteral(envPtr, "1", 1), envPtr);

*** generic/tclCompile.c	19 Nov 2003 22:04:39 -0000	1.54
--- generic/tclCompile.c	24 Dec 2003 01:46:54 -0000
***************
*** 372,378 ****
      if (!traceInitialized) {
          if (Tcl_LinkVar(interp, "tcl_traceCompile",
  	            (char *) &tclTraceCompile,  TCL_LINK_INT) != TCL_OK) {
!             panic("SetByteCodeFromAny: unable to create link for tcl_traceCompile variable");
          }
          traceInitialized = 1;
      }
--- 372,378 ----
      if (!traceInitialized) {
          if (Tcl_LinkVar(interp, "tcl_traceCompile",
  	            (char *) &tclTraceCompile,  TCL_LINK_INT) != TCL_OK) {
!             Tcl_Panic("SetByteCodeFromAny: unable to create link for tcl_traceCompile variable");
          }
          traceInitialized = 1;
      }
***************
*** 1316,1322 ****
  		break;
  
  	    default:
! 		panic("Unexpected token type in TclCompileTokens");
  	}
      }
  
--- 1316,1322 ----
  		break;
  
  	    default:
! 		Tcl_Panic("Unexpected token type in TclCompileTokens");
  	}
      }
  
***************
*** 1621,1627 ****
      nextPtr = EncodeCmdLocMap(envPtr, codePtr, (unsigned char *) p);
  #ifdef TCL_COMPILE_DEBUG
      if (((size_t)(nextPtr - p)) != cmdLocBytes) {	
! 	panic("TclInitByteCodeObj: encoded cmd location bytes %d != expected size %d\n", (nextPtr - p), cmdLocBytes);
      }
  #endif
      
--- 1621,1627 ----
      nextPtr = EncodeCmdLocMap(envPtr, codePtr, (unsigned char *) p);
  #ifdef TCL_COMPILE_DEBUG
      if (((size_t)(nextPtr - p)) != cmdLocBytes) {	
! 	Tcl_Panic("TclInitByteCodeObj: encoded cmd location bytes %d != expected size %d\n", (nextPtr - p), cmdLocBytes);
      }
  #endif
      
***************
*** 2015,2021 ****
      CmdLocation *cmdLocPtr;
      
      if ((cmdIndex < 0) || (cmdIndex >= envPtr->numCommands)) {
! 	panic("EnterCmdStartData: bad command index %d\n", cmdIndex);
      }
      
      if (cmdIndex >= envPtr->cmdMapEnd) {
--- 2015,2021 ----
      CmdLocation *cmdLocPtr;
      
      if ((cmdIndex < 0) || (cmdIndex >= envPtr->numCommands)) {
! 	Tcl_Panic("EnterCmdStartData: bad command index %d\n", cmdIndex);
      }
      
      if (cmdIndex >= envPtr->cmdMapEnd) {
***************
*** 2047,2053 ****
  
      if (cmdIndex > 0) {
  	if (codeOffset < envPtr->cmdMapPtr[cmdIndex-1].codeOffset) {
! 	    panic("EnterCmdStartData: cmd map not sorted by code offset");
  	}
      }
  
--- 2047,2053 ----
  
      if (cmdIndex > 0) {
  	if (codeOffset < envPtr->cmdMapPtr[cmdIndex-1].codeOffset) {
! 	    Tcl_Panic("EnterCmdStartData: cmd map not sorted by code offset");
  	}
      }
  
***************
*** 2092,2102 ****
      CmdLocation *cmdLocPtr;
  
      if ((cmdIndex < 0) || (cmdIndex >= envPtr->numCommands)) {
! 	panic("EnterCmdExtentData: bad command index %d\n", cmdIndex);
      }
      
      if (cmdIndex > envPtr->cmdMapEnd) {
! 	panic("EnterCmdExtentData: missing start data for command %d\n",
  	        cmdIndex);
      }
  
--- 2092,2102 ----
      CmdLocation *cmdLocPtr;
  
      if ((cmdIndex < 0) || (cmdIndex >= envPtr->numCommands)) {
! 	Tcl_Panic("EnterCmdExtentData: bad command index %d\n", cmdIndex);
      }
      
      if (cmdIndex > envPtr->cmdMapEnd) {
! 	Tcl_Panic("EnterCmdExtentData: missing start data for command %d\n",
  	        cmdIndex);
      }
  
***************
*** 2529,2535 ****
  	    rangePtr->catchOffset += 3;
  	    break;
  	default:
! 	    panic("TclFixupForwardJump: bad ExceptionRange type %d\n",
  	            rangePtr->type);
  	}
      }
--- 2529,2535 ----
  	    rangePtr->catchOffset += 3;
  	    break;
  	default:
! 	    Tcl_Panic("TclFixupForwardJump: bad ExceptionRange type %d\n",
  	            rangePtr->type);
  	}
      }
***************
*** 2755,2761 ****
      for (i = 0;  i < numCmds;  i++) {
  	codeDelta = (mapPtr[i].codeOffset - prevCodeOffset);
  	if (codeDelta < 0) {
! 	    panic("GetCmdLocEncodingSize: bad code offset");
  	} else if (codeDelta <= 127) {
  	    codeDeltaNext++;
  	} else {
--- 2755,2761 ----
      for (i = 0;  i < numCmds;  i++) {
  	codeDelta = (mapPtr[i].codeOffset - prevCodeOffset);
  	if (codeDelta < 0) {
! 	    Tcl_Panic("GetCmdLocEncodingSize: bad code offset");
  	} else if (codeDelta <= 127) {
  	    codeDeltaNext++;
  	} else {
***************
*** 2765,2771 ****
  
  	codeLen = mapPtr[i].numCodeBytes;
  	if (codeLen < 0) {
! 	    panic("GetCmdLocEncodingSize: bad code length");
  	} else if (codeLen <= 127) {
  	    codeLengthNext++;
  	} else {
--- 2765,2771 ----
  
  	codeLen = mapPtr[i].numCodeBytes;
  	if (codeLen < 0) {
! 	    Tcl_Panic("GetCmdLocEncodingSize: bad code length");
  	} else if (codeLen <= 127) {
  	    codeLengthNext++;
  	} else {
***************
*** 2782,2788 ****
  
  	srcLen = mapPtr[i].numSrcBytes;
  	if (srcLen < 0) {
! 	    panic("GetCmdLocEncodingSize: bad source length");
  	} else if (srcLen <= 127) {
  	    srcLengthNext++;
  	} else {
--- 2782,2788 ----
  
  	srcLen = mapPtr[i].numSrcBytes;
  	if (srcLen < 0) {
! 	    Tcl_Panic("GetCmdLocEncodingSize: bad source length");
  	} else if (srcLen <= 127) {
  	    srcLengthNext++;
  	} else {
***************
*** 2840,2846 ****
      for (i = 0;  i < numCmds;  i++) {
  	codeDelta = (mapPtr[i].codeOffset - prevOffset);
  	if (codeDelta < 0) {
! 	    panic("EncodeCmdLocMap: bad code offset");
  	} else if (codeDelta <= 127) {
  	    TclStoreInt1AtPtr(codeDelta, p);
  	    p++;
--- 2840,2846 ----
      for (i = 0;  i < numCmds;  i++) {
  	codeDelta = (mapPtr[i].codeOffset - prevOffset);
  	if (codeDelta < 0) {
! 	    Tcl_Panic("EncodeCmdLocMap: bad code offset");
  	} else if (codeDelta <= 127) {
  	    TclStoreInt1AtPtr(codeDelta, p);
  	    p++;
***************
*** 2861,2867 ****
      for (i = 0;  i < numCmds;  i++) {
  	codeLen = mapPtr[i].numCodeBytes;
  	if (codeLen < 0) {
! 	    panic("EncodeCmdLocMap: bad code length");
  	} else if (codeLen <= 127) {
  	    TclStoreInt1AtPtr(codeLen, p);
  	    p++;
--- 2861,2867 ----
      for (i = 0;  i < numCmds;  i++) {
  	codeLen = mapPtr[i].numCodeBytes;
  	if (codeLen < 0) {
! 	    Tcl_Panic("EncodeCmdLocMap: bad code length");
  	} else if (codeLen <= 127) {
  	    TclStoreInt1AtPtr(codeLen, p);
  	    p++;
***************
*** 2901,2907 ****
      for (i = 0;  i < numCmds;  i++) {
  	srcLen = mapPtr[i].numSrcBytes;
  	if (srcLen < 0) {
! 	    panic("EncodeCmdLocMap: bad source length");
  	} else if (srcLen <= 127) {
  	    TclStoreInt1AtPtr(srcLen, p);
  	    p++;
--- 2901,2907 ----
      for (i = 0;  i < numCmds;  i++) {
  	srcLen = mapPtr[i].numSrcBytes;
  	if (srcLen < 0) {
! 	    Tcl_Panic("EncodeCmdLocMap: bad source length");
  	} else if (srcLen <= 127) {
  	    TclStoreInt1AtPtr(srcLen, p);
  	    p++;
***************
*** 3044,3050 ****
  		fprintf(stdout,	"catch %d\n", rangePtr->catchOffset);
  		break;
  	    default:
! 		panic("TclPrintByteCodeObj: bad ExceptionRange type %d\n",
  		        rangePtr->type);
  	    }
  	}
--- 3044,3050 ----
  		fprintf(stdout,	"catch %d\n", rangePtr->catchOffset);
  		break;
  	    default:
! 		Tcl_Panic("TclPrintByteCodeObj: bad ExceptionRange type %d\n",
  		        rangePtr->type);
  	    }
  	}
***************
*** 3255,3261 ****
  		int localCt = procPtr->numCompiledLocals;
  		CompiledLocal *localPtr = procPtr->firstLocalPtr;
  		if (opnd >= localCt) {
! 		    panic("TclPrintInstruction: bad local var index %u (%u locals)\n",
  			     (unsigned int) opnd, localCt);
  		}
  		for (j = 0;  j < opnd;  j++) {
--- 3255,3261 ----
  		int localCt = procPtr->numCompiledLocals;
  		CompiledLocal *localPtr = procPtr->firstLocalPtr;
  		if (opnd >= localCt) {
! 		    Tcl_Panic("TclPrintInstruction: bad local var index %u (%u locals)\n",
  			     (unsigned int) opnd, localCt);
  		}
  		for (j = 0;  j < opnd;  j++) {
***************
*** 3284,3290 ****
  		int localCt = procPtr->numCompiledLocals;
  		CompiledLocal *localPtr = procPtr->firstLocalPtr;
  		if (opnd >= localCt) {
! 		    panic("TclPrintInstruction: bad local var index %u (%u locals)\n",
  			     (unsigned int) opnd, localCt);
  		}
  		for (j = 0;  j < opnd;  j++) {
--- 3284,3290 ----
  		int localCt = procPtr->numCompiledLocals;
  		CompiledLocal *localPtr = procPtr->firstLocalPtr;
  		if (opnd >= localCt) {
! 		    Tcl_Panic("TclPrintInstruction: bad local var index %u (%u locals)\n",
  			     (unsigned int) opnd, localCt);
  		}
  		for (j = 0;  j < opnd;  j++) {

*** generic/tclConfig.c	1 Nov 2003 01:20:34 -0000	1.4
--- generic/tclConfig.c	24 Dec 2003 01:46:56 -0000
***************
*** 220,226 ****
      pDB = GetConfigDict(interp);
      res = Tcl_DictObjGet(interp, pDB, pkgName, &pkgDict);
      if (res!=TCL_OK || pkgDict==NULL) {
!         /* Maybe a panic is better, because the package data has to be present */
          Tcl_SetObjResult(interp, Tcl_NewStringObj("package not known", -1));
  	return TCL_ERROR;
      }
--- 220,226 ----
      pDB = GetConfigDict(interp);
      res = Tcl_DictObjGet(interp, pDB, pkgName, &pkgDict);
      if (res!=TCL_OK || pkgDict==NULL) {
!         /* Maybe a Tcl_Panic is better, because the package data has to be present */
          Tcl_SetObjResult(interp, Tcl_NewStringObj("package not known", -1));
  	return TCL_ERROR;
      }

*** generic/tclDictObj.c	4 Sep 2003 16:44:12 -0000	1.11
--- generic/tclDictObj.c	24 Dec 2003 01:46:59 -0000
***************
*** 654,660 ****
      int isNew;
  
      if (Tcl_IsShared(dictPtr)) {
! 	panic("Tcl_DictObjPut called with shared object");
      }
  
      if (dictPtr->typePtr != &tclDictType) {
--- 654,660 ----
      int isNew;
  
      if (Tcl_IsShared(dictPtr)) {
! 	Tcl_Panic("Tcl_DictObjPut called with shared object");
      }
  
      if (dictPtr->typePtr != &tclDictType) {
***************
*** 752,758 ****
      Tcl_HashEntry *hPtr;
  
      if (Tcl_IsShared(dictPtr)) {
! 	panic("Tcl_DictObjRemove called with shared object");
      }
  
      if (dictPtr->typePtr != &tclDictType) {
--- 752,758 ----
      Tcl_HashEntry *hPtr;
  
      if (Tcl_IsShared(dictPtr)) {
! 	Tcl_Panic("Tcl_DictObjRemove called with shared object");
      }
  
      if (dictPtr->typePtr != &tclDictType) {
***************
*** 929,935 ****
       * or removed.  This *shouldn't* happen, but...
       */
      if (((Dict *)searchPtr->dictionaryPtr)->epoch != searchPtr->epoch) {
! 	panic("concurrent dictionary modification and search");
      }
  
      hPtr = Tcl_NextHashEntry(&searchPtr->search);
--- 929,935 ----
       * or removed.  This *shouldn't* happen, but...
       */
      if (((Dict *)searchPtr->dictionaryPtr)->epoch != searchPtr->epoch) {
! 	Tcl_Panic("concurrent dictionary modification and search");
      }
  
      hPtr = Tcl_NextHashEntry(&searchPtr->search);
***************
*** 1016,1025 ****
      int isNew;
  
      if (Tcl_IsShared(dictPtr)) {
! 	panic("Tcl_DictObjPutKeyList called with shared object");
      }
      if (keyc < 1) {
! 	panic("Tcl_DictObjPutKeyList called with empty key list");
      }
  
      dictPtr = TraceDictPath(interp, dictPtr, keyc-1, keyv, /*willUpdate*/ 1);
--- 1016,1025 ----
      int isNew;
  
      if (Tcl_IsShared(dictPtr)) {
! 	Tcl_Panic("Tcl_DictObjPutKeyList called with shared object");
      }
      if (keyc < 1) {
! 	Tcl_Panic("Tcl_DictObjPutKeyList called with empty key list");
      }
  
      dictPtr = TraceDictPath(interp, dictPtr, keyc-1, keyv, /*willUpdate*/ 1);
***************
*** 1072,1081 ****
      Tcl_HashEntry *hPtr;
  
      if (Tcl_IsShared(dictPtr)) {
! 	panic("Tcl_DictObjRemoveKeyList called with shared object");
      }
      if (keyc < 1) {
! 	panic("Tcl_DictObjRemoveKeyList called with empty key list");
      }
  
      dictPtr = TraceDictPath(interp, dictPtr, keyc-1, keyv, /*willUpdate*/ 1);
--- 1072,1081 ----
      Tcl_HashEntry *hPtr;
  
      if (Tcl_IsShared(dictPtr)) {
! 	Tcl_Panic("Tcl_DictObjRemoveKeyList called with shared object");
      }
      if (keyc < 1) {
! 	Tcl_Panic("Tcl_DictObjRemoveKeyList called with empty key list");
      }
  
      dictPtr = TraceDictPath(interp, dictPtr, keyc-1, keyv, /*willUpdate*/ 1);
***************
*** 2492,2498 ****
  	}
  	return result;
      }
!     panic("unexpected fallthrough");
      /* Control never reaches this point. */
      return TCL_ERROR;
  
--- 2492,2498 ----
  	}
  	return result;
      }
!     Tcl_Panic("unexpected fallthrough");
      /* Control never reaches this point. */
      return TCL_ERROR;
  
***************
*** 2571,2577 ****
      case DICT_UNSET:	return DictUnsetCmd(interp, objc, objv);
      case DICT_VALUES:	return DictValuesCmd(interp, objc, objv);
      }
!     panic("unexpected fallthrough!");
      /*
       * Next line is NOT REACHED - stops compliler complaint though...
       */
--- 2571,2577 ----
      case DICT_UNSET:	return DictUnsetCmd(interp, objc, objv);
      case DICT_VALUES:	return DictValuesCmd(interp, objc, objv);
      }
!     Tcl_Panic("unexpected fallthrough!");
      /*
       * Next line is NOT REACHED - stops compliler complaint though...
       */

*** generic/tclEncoding.c	21 Feb 2003 02:40:58 -0000	1.16
--- generic/tclEncoding.c	24 Dec 2003 01:47:02 -0000
***************
*** 2764,2770 ****
  	encodingPtr = (Encoding *) Tcl_GetEncoding(NULL, subTablePtr->name);
  	if ((encodingPtr == NULL) 
  		|| (encodingPtr->toUtfProc != TableToUtfProc)) {
! 	    panic("EscapeToUtfProc: invalid sub table");
  	}
  	subTablePtr->encodingPtr = encodingPtr;
      }
--- 2764,2770 ----
  	encodingPtr = (Encoding *) Tcl_GetEncoding(NULL, subTablePtr->name);
  	if ((encodingPtr == NULL) 
  		|| (encodingPtr->toUtfProc != TableToUtfProc)) {
! 	    Tcl_Panic("EscapeToUtfProc: invalid sub table");
  	}
  	subTablePtr->encodingPtr = encodingPtr;
      }

*** generic/tclEvent.c	29 Sep 2003 21:38:49 -0000	1.30
--- generic/tclEvent.c	24 Dec 2003 01:47:04 -0000
***************
*** 617,623 ****
  	/*
  	 * Warning: this code SHOULD NOT return, as there is code that
  	 * depends on Tcl_Exit never returning.  In fact, we will
! 	 * panic if anyone returns, so critical is this dependcy.
  	 */
  	currentAppExitPtr((ClientData) status);
  	Tcl_Panic("AppExitProc returned unexpectedly");
--- 617,623 ----
  	/*
  	 * Warning: this code SHOULD NOT return, as there is code that
  	 * depends on Tcl_Exit never returning.  In fact, we will
! 	 * Tcl_Panic if anyone returns, so critical is this dependcy.
  	 */
  	currentAppExitPtr((ClientData) status);
  	Tcl_Panic("AppExitProc returned unexpectedly");
***************
*** 742,748 ****
      ThreadSpecificData *tsdPtr;
  
      if (inFinalize != 0) {
! 	panic("TclInitSubsystems called while finalizing");
      }
  
      /*
--- 742,748 ----
      ThreadSpecificData *tsdPtr;
  
      if (inFinalize != 0) {
! 	Tcl_Panic("TclInitSubsystems called while finalizing");
      }
  
      /*
***************
*** 1180,1186 ****
  		break;
  	    }
  	    default: {
! 		panic("Tcl_UpdateObjCmd: bad option index to UpdateOptions");
  	    }
  	}
      } else {
--- 1180,1186 ----
  		break;
  	    }
  	    default: {
! 		Tcl_Panic("Tcl_UpdateObjCmd: bad option index to UpdateOptions");
  	    }
  	}
      } else {

*** generic/tclExecute.c	16 Nov 2003 02:12:56 -0000	1.117
--- generic/tclExecute.c	24 Dec 2003 01:47:10 -0000
***************
*** 174,187 ****
  	 switch (nCleanup) {\
  	     case 1: goto cleanup1_pushObjResultPtr;\
  	     case 2: goto cleanup2_pushObjResultPtr;\
! 	     default: panic("ERROR: bad usage of macro NEXT_INST_F");\
  	 }\
       } else {\
  	 pc += (pcAdjustment);\
  	 switch (nCleanup) {\
  	     case 1: goto cleanup1;\
  	     case 2: goto cleanup2;\
! 	     default: panic("ERROR: bad usage of macro NEXT_INST_F");\
  	 }\
       }
  
--- 174,187 ----
  	 switch (nCleanup) {\
  	     case 1: goto cleanup1_pushObjResultPtr;\
  	     case 2: goto cleanup2_pushObjResultPtr;\
! 	     default: Tcl_Panic("ERROR: bad usage of macro NEXT_INST_F");\
  	 }\
       } else {\
  	 pc += (pcAdjustment);\
  	 switch (nCleanup) {\
  	     case 1: goto cleanup1;\
  	     case 2: goto cleanup2;\
! 	     default: Tcl_Panic("ERROR: bad usage of macro NEXT_INST_F");\
  	 }\
       }
  
***************
*** 465,471 ****
  #ifdef TCL_COMPILE_DEBUG
      if (Tcl_LinkVar(interp, "tcl_traceExec", (char *) &tclTraceExec,
  		    TCL_LINK_INT) != TCL_OK) {
! 	panic("InitByteCodeExecution: can't create link for tcl_traceExec variable");
      }
  #endif
  #ifdef TCL_COMPILE_STATS    
--- 465,471 ----
  #ifdef TCL_COMPILE_DEBUG
      if (Tcl_LinkVar(interp, "tcl_traceExec", (char *) &tclTraceExec,
  		    TCL_LINK_INT) != TCL_OK) {
! 	Tcl_Panic("InitByteCodeExecution: can't create link for tcl_traceExec variable");
      }
  #endif
  #ifdef TCL_COMPILE_STATS    
***************
*** 563,569 ****
      if (eePtr->stackPtr[-1] == (Tcl_Obj *) ((char *) 1)) {
  	ckfree((char *) (eePtr->stackPtr-1));
      } else {
! 	panic("ERROR: freeing an execEnv whose stack is still in use.\n");
      }
      TclDecrRefCount(eePtr->errorInfo);
      TclDecrRefCount(eePtr->errorCode);
--- 563,569 ----
      if (eePtr->stackPtr[-1] == (Tcl_Obj *) ((char *) 1)) {
  	ckfree((char *) (eePtr->stackPtr-1));
      } else {
! 	Tcl_Panic("ERROR: freeing an execEnv whose stack is still in use.\n");
      }
      TclDecrRefCount(eePtr->errorInfo);
      TclDecrRefCount(eePtr->errorCode);
***************
*** 756,762 ****
  	        || (codePtr->compileEpoch != iPtr->compileEpoch)) {
              if (codePtr->flags & TCL_BYTECODE_PRECOMPILED) {
                  if ((Interp *) *codePtr->interpHandle != iPtr) {
!                     panic("Tcl_ExprObj: compiled expression jumped interps");
                  }
  	        codePtr->compileEpoch = iPtr->compileEpoch;
              } else {
--- 756,762 ----
  	        || (codePtr->compileEpoch != iPtr->compileEpoch)) {
              if (codePtr->flags & TCL_BYTECODE_PRECOMPILED) {
                  if ((Interp *) *codePtr->interpHandle != iPtr) {
!                     Tcl_Panic("Tcl_ExprObj: compiled expression jumped interps");
                  }
  	        codePtr->compileEpoch = iPtr->compileEpoch;
              } else {
***************
*** 971,977 ****
  	        || (codePtr->nsEpoch != namespacePtr->resolverEpoch)) {
              if (codePtr->flags & TCL_BYTECODE_PRECOMPILED) {
                  if ((Interp *) *codePtr->interpHandle != iPtr) {
!                     panic("Tcl_EvalObj: compiled script jumped interps");
                  }
  	        codePtr->compileEpoch = iPtr->compileEpoch;
              } else {
--- 971,977 ----
  	        || (codePtr->nsEpoch != namespacePtr->resolverEpoch)) {
              if (codePtr->flags & TCL_BYTECODE_PRECOMPILED) {
                  if ((Interp *) *codePtr->interpHandle != iPtr) {
!                     Tcl_Panic("Tcl_EvalObj: compiled script jumped interps");
                  }
  	        codePtr->compileEpoch = iPtr->compileEpoch;
              } else {
***************
*** 3864,3870 ****
  
  	    if ((opnd < 0) || (opnd > LAST_BUILTIN_FUNC)) {
  		TRACE(("UNRECOGNIZED BUILTIN FUNC CODE %d\n", opnd));
! 		panic("TclExecuteByteCode: unrecognized builtin function code %d", opnd);
  	    }
  	    mathFuncPtr = &(tclBuiltinFuncTable[opnd]);
  	    DECACHE_STACK_INFO();
--- 3864,3870 ----
  
  	    if ((opnd < 0) || (opnd > LAST_BUILTIN_FUNC)) {
  		TRACE(("UNRECOGNIZED BUILTIN FUNC CODE %d\n", opnd));
! 		Tcl_Panic("TclExecuteByteCode: unrecognized builtin function code %d", opnd);
  	    }
  	    mathFuncPtr = &(tclBuiltinFuncTable[opnd]);
  	    DECACHE_STACK_INFO();
***************
*** 4246,4252 ****
  	NEXT_INST_F(1, 0, 1);
  
      default:
! 	panic("TclExecuteByteCode: unrecognized opCode %u", *pc);
      } /* end of switch on opCode */
  
      /*
--- 4246,4252 ----
  	NEXT_INST_F(1, 0, 1);
  
      default:
! 	Tcl_Panic("TclExecuteByteCode: unrecognized opCode %u", *pc);
      } /* end of switch on opCode */
  
      /*
***************
*** 4444,4450 ****
  		    (unsigned int)(pc - codePtr->codeStart),
  		    (unsigned int) (tosPtr - eePtr->stackPtr),
  		    (unsigned int) initStackTop);
! 	    panic("TclExecuteByteCode execution failure: end stack top < start stack top");
  	}
  	eePtr->tosPtr = initTosPtr - codePtr->maxExceptDepth;
      }
--- 4444,4450 ----
  		    (unsigned int)(pc - codePtr->codeStart),
  		    (unsigned int) (tosPtr - eePtr->stackPtr),
  		    (unsigned int) initStackTop);
! 	    Tcl_Panic("TclExecuteByteCode execution failure: end stack top < start stack top");
  	}
  	eePtr->tosPtr = initTosPtr - codePtr->maxExceptDepth;
      }
***************
*** 4557,4568 ****
      if (((unsigned int) pc < codeStart) || ((unsigned int) pc > codeEnd)) {
  	fprintf(stderr, "\nBad instruction pc 0x%x in TclExecuteByteCode\n",
  		(unsigned int) pc);
! 	panic("TclExecuteByteCode execution failure: bad pc");
      }
      if ((unsigned int) opCode > LAST_INST_OPCODE) {
  	fprintf(stderr, "\nBad opcode %d at pc %u in TclExecuteByteCode\n",
  		(unsigned int) opCode, relativePc);
!         panic("TclExecuteByteCode execution failure: bad opcode");
      }
      if ((stackTop < stackLowerBound) || (stackTop > stackUpperBound)) {
  	int numChars;
--- 4557,4568 ----
      if (((unsigned int) pc < codeStart) || ((unsigned int) pc > codeEnd)) {
  	fprintf(stderr, "\nBad instruction pc 0x%x in TclExecuteByteCode\n",
  		(unsigned int) pc);
! 	Tcl_Panic("TclExecuteByteCode execution failure: bad pc");
      }
      if ((unsigned int) opCode > LAST_INST_OPCODE) {
  	fprintf(stderr, "\nBad opcode %d at pc %u in TclExecuteByteCode\n",
  		(unsigned int) opCode, relativePc);
!         Tcl_Panic("TclExecuteByteCode execution failure: bad opcode");
      }
      if ((stackTop < stackLowerBound) || (stackTop > stackUpperBound)) {
  	int numChars;
***************
*** 4579,4585 ****
  	} else {
  	    fprintf(stderr, "\n");
  	}
! 	panic("TclExecuteByteCode execution failure: bad stack top");
      }
  }
  #endif /* TCL_COMPILE_DEBUG */
--- 4579,4585 ----
  	} else {
  	    fprintf(stderr, "\n");
  	}
! 	Tcl_Panic("TclExecuteByteCode execution failure: bad stack top");
      }
  }
  #endif /* TCL_COMPILE_DEBUG */
***************
*** 5773,5779 ****
      }
      mathFuncPtr = (MathFunc *) Tcl_GetHashValue(hPtr);
      if (mathFuncPtr->numArgs != (objc-1)) {
! 	panic("ExprCallMathFunc: expected number of args %d != actual number %d",
  	        mathFuncPtr->numArgs, objc);
  	result = TCL_ERROR;
  	goto done;
--- 5773,5779 ----
      }
      mathFuncPtr = (MathFunc *) Tcl_GetHashValue(hPtr);
      if (mathFuncPtr->numArgs != (objc-1)) {
! 	Tcl_Panic("ExprCallMathFunc: expected number of args %d != actual number %d",
  	        mathFuncPtr->numArgs, objc);
  	result = TCL_ERROR;
  	goto done;

*** generic/tclHash.c	15 Nov 2003 23:35:16 -0000	1.15
--- generic/tclHash.c	24 Dec 2003 01:47:12 -0000
***************
*** 193,199 ****
  					 * the behaviour of this table. */
  {
  #if (TCL_SMALL_HASH_TABLE != 4) 
!     panic("Tcl_InitCustomHashTable: TCL_SMALL_HASH_TABLE is %d, not 4\n",
  	    TCL_SMALL_HASH_TABLE);
  #endif
      
--- 193,199 ----
  					 * the behaviour of this table. */
  {
  #if (TCL_SMALL_HASH_TABLE != 4) 
!     Tcl_Panic("Tcl_InitCustomHashTable: TCL_SMALL_HASH_TABLE is %d, not 4\n",
  	    TCL_SMALL_HASH_TABLE);
  #endif
      
***************
*** 548,554 ****
      } else {
  	for (prevPtr = *bucketPtr; ; prevPtr = prevPtr->nextPtr) {
  	    if (prevPtr == NULL) {
! 		panic("malformed bucket chain in Tcl_DeleteHashEntry");
  	    }
  	    if (prevPtr->nextPtr == entryPtr) {
  		prevPtr->nextPtr = entryPtr->nextPtr;
--- 548,554 ----
      } else {
  	for (prevPtr = *bucketPtr; ; prevPtr = prevPtr->nextPtr) {
  	    if (prevPtr == NULL) {
! 		Tcl_Panic("malformed bucket chain in Tcl_DeleteHashEntry");
  	    }
  	    if (prevPtr->nextPtr == entryPtr) {
  		prevPtr->nextPtr = entryPtr->nextPtr;
***************
*** 1068,1074 ****
   *	on a table that has been deleted.
   *
   * Results:
!  *	If panic returns (which it shouldn't) this procedure returns
   *	NULL.
   *
   * Side effects:
--- 1068,1074 ----
   *	on a table that has been deleted.
   *
   * Results:
!  *	If Tcl_Panic returns (which it shouldn't) this procedure returns
   *	NULL.
   *
   * Side effects:
***************
*** 1083,1089 ****
      Tcl_HashTable *tablePtr;	/* Table in which to lookup entry. */
      CONST char *key;		/* Key to use to find matching entry. */
  {
!     panic("called Tcl_FindHashEntry on deleted table");
      return NULL;
  }
  
--- 1083,1089 ----
      Tcl_HashTable *tablePtr;	/* Table in which to lookup entry. */
      CONST char *key;		/* Key to use to find matching entry. */
  {
!     Tcl_Panic("called Tcl_FindHashEntry on deleted table");
      return NULL;
  }
  
***************
*** 1114,1120 ****
      int *newPtr;		/* Store info here telling whether a new
  				 * entry was created. */
  {
!     panic("called Tcl_CreateHashEntry on deleted table");
      return NULL;
  }
  #endif
--- 1114,1120 ----
      int *newPtr;		/* Store info here telling whether a new
  				 * entry was created. */
  {
!     Tcl_Panic("called Tcl_CreateHashEntry on deleted table");
      return NULL;
  }
  #endif

*** generic/tclInterp.c	29 Sep 2003 22:11:11 -0000	1.24
--- generic/tclInterp.c	24 Dec 2003 01:47:15 -0000
***************
*** 285,291 ****
  
      masterPtr = &interpInfoPtr->master;
      if (masterPtr->slaveTable.numEntries != 0) {
! 	panic("InterpInfoDeleteProc: still exist commands");
      }
      Tcl_DeleteHashTable(&masterPtr->slaveTable);
  
--- 285,291 ----
  
      masterPtr = &interpInfoPtr->master;
      if (masterPtr->slaveTable.numEntries != 0) {
! 	Tcl_Panic("InterpInfoDeleteProc: still exist commands");
      }
      Tcl_DeleteHashTable(&masterPtr->slaveTable);
  
***************
*** 323,329 ****
       */
  
      if (slavePtr->aliasTable.numEntries != 0) {
! 	panic("InterpInfoDeleteProc: still exist aliases");
      }
      Tcl_DeleteHashTable(&slavePtr->aliasTable);
  
--- 323,329 ----
       */
  
      if (slavePtr->aliasTable.numEntries != 0) {
! 	Tcl_Panic("InterpInfoDeleteProc: still exist aliases");
      }
      Tcl_DeleteHashTable(&slavePtr->aliasTable);
  
***************
*** 1887,1893 ****
      
      slaveInterp = (Tcl_Interp *) clientData;
      if (slaveInterp == NULL) {
! 	panic("SlaveObjCmd: interpreter has been deleted");
      }
  
      if (objc < 2) {
--- 1887,1893 ----
      
      slaveInterp = (Tcl_Interp *) clientData;
      if (slaveInterp == NULL) {
! 	Tcl_Panic("SlaveObjCmd: interpreter has been deleted");
      }
  
      if (objc < 2) {

*** generic/tclIO.c	22 Apr 2003 23:20:41 -0000	1.68
--- generic/tclIO.c	24 Dec 2003 01:47:22 -0000
***************
*** 758,764 ****
      statePtr = chanPtr->state;
  
      if (statePtr->channelName == (CONST char *) NULL) {
!         panic("Tcl_RegisterChannel: channel without name");
      }
      if (interp != (Tcl_Interp *) NULL) {
          hTblPtr = GetChannelTable(interp);
--- 758,764 ----
      statePtr = chanPtr->state;
  
      if (statePtr->channelName == (CONST char *) NULL) {
!         Tcl_Panic("Tcl_RegisterChannel: channel without name");
      }
      if (interp != (Tcl_Interp *) NULL) {
          hTblPtr = GetChannelTable(interp);
***************
*** 768,774 ****
                  return;
              }
  
! 	    panic("Tcl_RegisterChannel: duplicate channel names");
          }
          Tcl_SetHashValue(hPtr, (ClientData) chanPtr);
      }
--- 768,774 ----
                  return;
              }
  
! 	    Tcl_Panic("Tcl_RegisterChannel: duplicate channel names");
          }
          Tcl_SetHashValue(hPtr, (ClientData) chanPtr);
      }
***************
*** 1126,1132 ****
          statePtr->channelName = tmp;
          strcpy(tmp, chanName);
      } else {
!         panic("Tcl_CreateChannel: NULL channel name");
      }
  
      statePtr->flags		= mask;
--- 1126,1132 ----
          statePtr->channelName = tmp;
          strcpy(tmp, chanName);
      } else {
!         Tcl_Panic("Tcl_CreateChannel: NULL channel name");
      }
  
      statePtr->flags		= mask;
***************
*** 2245,2251 ****
       */
  
      if (statePtr->outQueueHead != (ChannelBuffer *) NULL) {
!         panic("TclFlush, closed channel: queued output left");
      }
  
      /*
--- 2245,2251 ----
       */
  
      if (statePtr->outQueueHead != (ChannelBuffer *) NULL) {
!         Tcl_Panic("TclFlush, closed channel: queued output left");
      }
  
      /*
***************
*** 2403,2409 ****
              /* Empty loop body. */
          }
          if (prevCSPtr == (ChannelState *) NULL) {
!             panic("FlushChannel: damaged channel list");
          }
          prevCSPtr->nextCSPtr = statePtr->nextCSPtr;
      }
--- 2403,2409 ----
              /* Empty loop body. */
          }
          if (prevCSPtr == (ChannelState *) NULL) {
!             Tcl_Panic("FlushChannel: damaged channel list");
          }
          prevCSPtr->nextCSPtr = statePtr->nextCSPtr;
      }
***************
*** 2450,2456 ****
      ChannelState	*statePtr = ((Channel *) chan)->state;
  
      if (statePtr->nextCSPtr != (ChannelState *) NULL) {
!         panic("Tcl_SpliceChannel: trying to add channel used in different list");
      }
  
      statePtr->nextCSPtr	= tsdPtr->firstCSPtr;
--- 2450,2456 ----
      ChannelState	*statePtr = ((Channel *) chan)->state;
  
      if (statePtr->nextCSPtr != (ChannelState *) NULL) {
!         Tcl_Panic("Tcl_SpliceChannel: trying to add channel used in different list");
      }
  
      statePtr->nextCSPtr	= tsdPtr->firstCSPtr;
***************
*** 2527,2533 ****
      chanPtr	= statePtr->topChanPtr;
  
      if (statePtr->refCount > 0) {
!         panic("called Tcl_Close on channel with refCount > 0");
      }
  
      /*
--- 2527,2533 ----
      chanPtr	= statePtr->topChanPtr;
  
      if (statePtr->refCount > 0) {
!         Tcl_Panic("called Tcl_Close on channel with refCount > 0");
      }
  
      /*
***************
*** 6066,6072 ****
  	}
  	if (Tcl_SplitList(interp, Tcl_DStringValue(&ds), 
  		&argc, &argv) != TCL_OK) {
! 	    panic("malformed option list in channel driver");
  	}
  	Tcl_ResetResult(interp);
  	Tcl_AppendResult(interp, "bad option \"", optionName, 
--- 6066,6072 ----
  	}
  	if (Tcl_SplitList(interp, Tcl_DStringValue(&ds), 
  		&argc, &argv) != TCL_OK) {
! 	    Tcl_Panic("malformed option list in channel driver");
  	}
  	Tcl_ResetResult(interp);
  	Tcl_AppendResult(interp, "bad option \"", optionName, 
***************
*** 8083,8089 ****
              break;
  	}
          default: {
!             panic("unknown eol translation mode");
  	}
      }
  
--- 8083,8089 ----
              break;
  	}
          default: {
!             Tcl_Panic("unknown eol translation mode");
  	}
      }
  
***************
*** 8334,8342 ****
                  }
                  break;
              case TCL_TRANSLATE_AUTO:
!                 panic("Tcl_Write: AUTO output translation mode not supported");
              default:
!                 panic("Tcl_Write: unknown output translation mode");
          }
  
          /*
--- 8334,8342 ----
                  }
                  break;
              case TCL_TRANSLATE_AUTO:
!                 Tcl_Panic("Tcl_Write: AUTO output translation mode not supported");
              default:
!                 Tcl_Panic("Tcl_Write: unknown output translation mode");
          }
  
          /*

*** generic/tclIOCmd.c	15 Feb 2002 14:28:49 -0000	1.15
--- generic/tclIOCmd.c	24 Dec 2003 01:47:25 -0000
***************
*** 997,1003 ****
  		    flags |= (TCL_STDIN | TCL_STDOUT);
  		    break;
  		default:
! 		    panic("Tcl_OpenCmd: invalid mode value");
  		    break;
  	    }
  	    chan = Tcl_OpenCommandChannel(interp, cmdObjc, cmdArgv, flags);
--- 997,1003 ----
  		    flags |= (TCL_STDIN | TCL_STDOUT);
  		    break;
  		default:
! 		    Tcl_Panic("Tcl_OpenCmd: invalid mode value");
  		    break;
  	    }
  	    chan = Tcl_OpenCommandChannel(interp, cmdObjc, cmdArgv, flags);
***************
*** 1103,1109 ****
      }
      hPtr = Tcl_CreateHashEntry(hTblPtr, (char *) acceptCallbackPtr, &new);
      if (!new) {
!         panic("RegisterTcpServerCleanup: damaged accept record table");
      }
      Tcl_SetHashValue(hPtr, (ClientData) acceptCallbackPtr);
  }
--- 1103,1109 ----
      }
      hPtr = Tcl_CreateHashEntry(hTblPtr, (char *) acceptCallbackPtr, &new);
      if (!new) {
!         Tcl_Panic("RegisterTcpServerCleanup: damaged accept record table");
      }
      Tcl_SetHashValue(hPtr, (ClientData) acceptCallbackPtr);
  }
***************
*** 1386,1392 ****
  		break;
  	    }
  	    default: {
! 		panic("Tcl_SocketObjCmd: bad option index to SocketOptions");
  	    }
  	}
      }
--- 1386,1392 ----
  		break;
  	    }
  	    default: {
! 		Tcl_Panic("Tcl_SocketObjCmd: bad option index to SocketOptions");
  	    }
  	}
      }

*** generic/tclIOUtil.c	17 Dec 2003 09:24:43 -0000	1.90
--- generic/tclIOUtil.c	24 Dec 2003 01:47:30 -0000
***************
*** 3294,3300 ****
  		     * return with the current value of 'type'.
  		     * 
  		     * It would be better if we could signal an error
! 		     * here (but panic seems a bit excessive).
  		     */
  		    numVolumes = -1;
  		}
--- 3294,3300 ----
  		     * return with the current value of 'type'.
  		     * 
  		     * It would be better if we could signal an error
! 		     * here (but Tcl_Panic seems a bit excessive).
  		     */
  		    numVolumes = -1;
  		}
***************
*** 3697,3703 ****
      Tcl_Filesystem* retVal = NULL;
      
      if (pathObjPtr == NULL) {
! 	panic("Tcl_FSGetFileSystemForPath called with NULL object");
  	return NULL;
      }
      
--- 3697,3703 ----
      Tcl_Filesystem* retVal = NULL;
      
      if (pathObjPtr == NULL) {
! 	Tcl_Panic("Tcl_FSGetFileSystemForPath called with NULL object");
  	return NULL;
      }
      
***************
*** 3709,3715 ****
       */
      
      if (pathObjPtr->refCount == 0) {
! 	panic("Tcl_FSGetFileSystemForPath called with object with refCount == 0");
  	return NULL;
      }
      
--- 3709,3715 ----
       */
      
      if (pathObjPtr->refCount == 0) {
! 	Tcl_Panic("Tcl_FSGetFileSystemForPath called with object with refCount == 0");
  	return NULL;
      }
      

*** generic/tclListObj.c	1 Nov 2003 01:28:04 -0000	1.17
--- generic/tclListObj.c	24 Dec 2003 01:47:33 -0000
***************
*** 355,361 ****
      int i;
  
      if (Tcl_IsShared(objPtr)) {
! 	panic("Tcl_SetListObj called with shared object");
      }
  
      /*
--- 355,361 ----
      int i;
  
      if (Tcl_IsShared(objPtr)) {
! 	Tcl_Panic("Tcl_SetListObj called with shared object");
      }
  
      /*
***************
*** 487,493 ****
      Tcl_Obj **objv;
  
      if (Tcl_IsShared(listPtr)) {
! 	panic("Tcl_ListObjAppendList called with shared object");
      }
      if (listPtr->typePtr != &tclListType) {
  	result = SetListFromAny(interp, listPtr);
--- 487,493 ----
      Tcl_Obj **objv;
  
      if (Tcl_IsShared(listPtr)) {
! 	Tcl_Panic("Tcl_ListObjAppendList called with shared object");
      }
      if (listPtr->typePtr != &tclListType) {
  	result = SetListFromAny(interp, listPtr);
***************
*** 549,555 ****
      int numElems, numRequired;
  
      if (Tcl_IsShared(listPtr)) {
! 	panic("Tcl_ListObjAppendElement called with shared object");
      }
      if (listPtr->typePtr != &tclListType) {
  	int result = SetListFromAny(interp, listPtr);
--- 549,555 ----
      int numElems, numRequired;
  
      if (Tcl_IsShared(listPtr)) {
! 	Tcl_Panic("Tcl_ListObjAppendElement called with shared object");
      }
      if (listPtr->typePtr != &tclListType) {
  	int result = SetListFromAny(interp, listPtr);
***************
*** 749,755 ****
      int start, shift, newMax, i, j, result;
  
      if (Tcl_IsShared(listPtr)) {
! 	panic("Tcl_ListObjReplace called with shared object");
      }
      if (listPtr->typePtr != &tclListType) {
  	result = SetListFromAny(interp, listPtr);
--- 749,755 ----
      int start, shift, newMax, i, j, result;
  
      if (Tcl_IsShared(listPtr)) {
! 	Tcl_Panic("Tcl_ListObjReplace called with shared object");
      }
      if (listPtr->typePtr != &tclListType) {
  	result = SetListFromAny(interp, listPtr);
***************
*** 1368,1377 ****
   *
   * Side effects:
   *
!  *	Panics if listPtr designates a shared object.  Otherwise, attempts
!  *	to convert it to a list.  Decrements the ref count of the object
!  *	at the specified index within the list, replaces with the
!  *	object designated by valuePtr, and increments the ref count
   *	of the replacement object.  
   *
   * It is the caller's responsibility to invalidate the string
--- 1368,1377 ----
   *
   * Side effects:
   *
!  *	Tcl_Panic if listPtr designates a shared object.  Otherwise,
!  *	attempts to convert it to a list.  Decrements the ref count of
!  *	the object at the specified index within the list, replaces with
!  *	the object designated by valuePtr, and increments the ref count
   *	of the replacement object.  
   *
   * It is the caller's responsibility to invalidate the string
***************
*** 1399,1405 ****
      /* Ensure that the listPtr parameter designates an unshared list */
  
      if (Tcl_IsShared(listPtr)) {
! 	panic("Tcl_ListObjSetElement called with shared object");
      }
      if (listPtr->typePtr != &tclListType) {
  	result = SetListFromAny(interp, listPtr);
--- 1399,1405 ----
      /* Ensure that the listPtr parameter designates an unshared list */
  
      if (Tcl_IsShared(listPtr)) {
! 	Tcl_Panic("Tcl_ListObjSetElement called with shared object");
      }
      if (listPtr->typePtr != &tclListType) {
  	result = SetListFromAny(interp, listPtr);
***************
*** 1618,1624 ****
  	    break;
  	}
  	if (i > estCount) {
! 	    panic("SetListFromAny: bad size estimate for list");
  	}
  
  	/*
--- 1618,1624 ----
  	    break;
  	}
  	if (i > estCount) {
! 	    Tcl_Panic("SetListFromAny: bad size estimate for list");
  	}
  
  	/*

*** generic/tclLiteral.c	11 Oct 2001 22:28:01 -0000	1.11
--- generic/tclLiteral.c	24 Dec 2003 01:47:35 -0000
***************
*** 63,69 ****
  				      * is supplied by the caller. */
  {
  #if (TCL_SMALL_HASH_TABLE != 4) 
!     panic("TclInitLiteralTable: TCL_SMALL_HASH_TABLE is %d, not 4\n",
  	    TCL_SMALL_HASH_TABLE);
  #endif
      
--- 63,69 ----
  				      * is supplied by the caller. */
  {
  #if (TCL_SMALL_HASH_TABLE != 4) 
!     Tcl_Panic("TclInitLiteralTable: TCL_SMALL_HASH_TABLE is %d, not 4\n",
  	    TCL_SMALL_HASH_TABLE);
  #endif
      
***************
*** 242,248 ****
  	    objIndex = AddLocalLiteralEntry(envPtr, globalPtr, localHash);
  #ifdef TCL_COMPILE_DEBUG
  	    if (globalPtr->refCount < 1) {
! 		panic("TclRegisterLiteral: global literal \"%.*s\" had bad refCount %d",
  			(length>60? 60 : length), bytes,
  			globalPtr->refCount);
  	    }
--- 242,248 ----
  	    objIndex = AddLocalLiteralEntry(envPtr, globalPtr, localHash);
  #ifdef TCL_COMPILE_DEBUG
  	    if (globalPtr->refCount < 1) {
! 		Tcl_Panic("TclRegisterLiteral: global literal \"%.*s\" had bad refCount %d",
  			(length>60? 60 : length), bytes,
  			globalPtr->refCount);
  	    }
***************
*** 282,288 ****
      
  #ifdef TCL_COMPILE_DEBUG
      if (TclLookupLiteralEntry((Tcl_Interp *) iPtr, objPtr) != NULL) {
! 	panic("TclRegisterLiteral: literal \"%.*s\" found globally but shouldn't be",
  	        (length>60? 60 : length), bytes);
      }
  #endif
--- 282,288 ----
      
  #ifdef TCL_COMPILE_DEBUG
      if (TclLookupLiteralEntry((Tcl_Interp *) iPtr, objPtr) != NULL) {
! 	Tcl_Panic("TclRegisterLiteral: literal \"%.*s\" found globally but shouldn't be",
  	        (length>60? 60 : length), bytes);
      }
  #endif
***************
*** 321,327 ****
  	    }
  	}
  	if (!found) {
! 	    panic("TclRegisterLiteral: literal \"%.*s\" wasn't global",
  	            (length>60? 60 : length), bytes);
  	}
      }
--- 321,327 ----
  	    }
  	}
  	if (!found) {
! 	    Tcl_Panic("TclRegisterLiteral: literal \"%.*s\" wasn't global",
  	            (length>60? 60 : length), bytes);
  	}
      }
***************
*** 563,569 ****
  	}
  	if (!found) {
  	    bytes = Tcl_GetStringFromObj(globalPtr->objPtr, &length);
! 	    panic("AddLocalLiteralEntry: literal \"%.*s\" wasn't found locally",
  	            (length>60? 60 : length), bytes);
  	}
      }
--- 563,569 ----
  	}
  	if (!found) {
  	    bytes = Tcl_GetStringFromObj(globalPtr->objPtr, &length);
! 	    Tcl_Panic("AddLocalLiteralEntry: literal \"%.*s\" wasn't found locally",
  	            (length>60? 60 : length), bytes);
  	}
      }
***************
*** 959,965 ****
   *	None.
   *
   * Side effects:
!  *	Panics if problems are found.
   *
   *----------------------------------------------------------------------
   */
--- 959,965 ----
   *	None.
   *
   * Side effects:
!  *	Tcl_Panic if problems are found.
   *
   *----------------------------------------------------------------------
   */
***************
*** 982,1004 ****
  	    count++;
  	    if (localPtr->refCount != -1) {
  		bytes = Tcl_GetStringFromObj(localPtr->objPtr, &length);
! 		panic("TclVerifyLocalLiteralTable: local literal \"%.*s\" had bad refCount %d",
  		        (length>60? 60 : length), bytes,
  		        localPtr->refCount);
  	    }
  	    if (TclLookupLiteralEntry((Tcl_Interp *) envPtr->iPtr,
  		    localPtr->objPtr) == NULL) {
  		bytes = Tcl_GetStringFromObj(localPtr->objPtr, &length);
! 		panic("TclVerifyLocalLiteralTable: local literal \"%.*s\" is not global",
  		         (length>60? 60 : length), bytes);
  	    }
  	    if (localPtr->objPtr->bytes == NULL) {
! 		panic("TclVerifyLocalLiteralTable: literal has NULL string rep");
  	    }
  	}
      }
      if (count != localTablePtr->numEntries) {
! 	panic("TclVerifyLocalLiteralTable: local literal table had %d entries, should be %d",
  	      count, localTablePtr->numEntries);
      }
  }
--- 982,1004 ----
  	    count++;
  	    if (localPtr->refCount != -1) {
  		bytes = Tcl_GetStringFromObj(localPtr->objPtr, &length);
! 		Tcl_Panic("TclVerifyLocalLiteralTable: local literal \"%.*s\" had bad refCount %d",
  		        (length>60? 60 : length), bytes,
  		        localPtr->refCount);
  	    }
  	    if (TclLookupLiteralEntry((Tcl_Interp *) envPtr->iPtr,
  		    localPtr->objPtr) == NULL) {
  		bytes = Tcl_GetStringFromObj(localPtr->objPtr, &length);
! 		Tcl_Panic("TclVerifyLocalLiteralTable: local literal \"%.*s\" is not global",
  		         (length>60? 60 : length), bytes);
  	    }
  	    if (localPtr->objPtr->bytes == NULL) {
! 		Tcl_Panic("TclVerifyLocalLiteralTable: literal has NULL string rep");
  	    }
  	}
      }
      if (count != localTablePtr->numEntries) {
! 	Tcl_Panic("TclVerifyLocalLiteralTable: local literal table had %d entries, should be %d",
  	      count, localTablePtr->numEntries);
      }
  }
***************
*** 1014,1020 ****
   *	None.
   *
   * Side effects:
!  *	Panics if problems are found.
   *
   *----------------------------------------------------------------------
   */
--- 1014,1020 ----
   *	None.
   *
   * Side effects:
!  *	Tcl_Panic if problems are found.
   *
   *----------------------------------------------------------------------
   */
***************
*** 1037,1053 ****
  	    count++;
  	    if (globalPtr->refCount < 1) {
  		bytes = Tcl_GetStringFromObj(globalPtr->objPtr, &length);
! 		panic("TclVerifyGlobalLiteralTable: global literal \"%.*s\" had bad refCount %d",
  		        (length>60? 60 : length), bytes,
  		        globalPtr->refCount);
  	    }
  	    if (globalPtr->objPtr->bytes == NULL) {
! 		panic("TclVerifyGlobalLiteralTable: literal has NULL string rep");
  	    }
  	}
      }
      if (count != globalTablePtr->numEntries) {
! 	panic("TclVerifyGlobalLiteralTable: global literal table had %d entries, should be %d",
  	      count, globalTablePtr->numEntries);
      }
  }
--- 1037,1053 ----
  	    count++;
  	    if (globalPtr->refCount < 1) {
  		bytes = Tcl_GetStringFromObj(globalPtr->objPtr, &length);
! 		Tcl_Panic("TclVerifyGlobalLiteralTable: global literal \"%.*s\" had bad refCount %d",
  		        (length>60? 60 : length), bytes,
  		        globalPtr->refCount);
  	    }
  	    if (globalPtr->objPtr->bytes == NULL) {
! 		Tcl_Panic("TclVerifyGlobalLiteralTable: literal has NULL string rep");
  	    }
  	}
      }
      if (count != globalTablePtr->numEntries) {
! 	Tcl_Panic("TclVerifyGlobalLiteralTable: global literal table had %d entries, should be %d",
  	      count, globalTablePtr->numEntries);
      }
  }

*** generic/tclNamesp.c	14 Oct 2003 15:44:52 -0000	1.34
--- generic/tclNamesp.c	24 Dec 2003 01:47:40 -0000
***************
*** 424,430 ****
      } else {
          nsPtr = (Namespace *) namespacePtr;
          if (nsPtr->flags & NS_DEAD) {
! 	    panic("Trying to push call frame for dead namespace");
  	    /*NOTREACHED*/
          }
      }
--- 424,430 ----
      } else {
          nsPtr = (Namespace *) namespacePtr;
          if (nsPtr->flags & NS_DEAD) {
! 	    Tcl_Panic("Trying to push call frame for dead namespace");
  	    /*NOTREACHED*/
          }
      }
***************
*** 1691,1697 ****
  	prevPtr = refPtr;
      }
  	
!     panic("DeleteImportedCmd: did not find cmd in real cmd's list of import references");
  }
  
  /*
--- 1691,1697 ----
  	prevPtr = refPtr;
      }
  	
!     Tcl_Panic("DeleteImportedCmd: did not find cmd in real cmd's list of import references");
  }
  
  /*
***************
*** 1955,1961 ****
                  Tcl_PopCallFrame(interp);
  
                  if (nsPtr == NULL) {
!                     panic("Could not create namespace '%s'", nsName);
                  }
              } else {		/* namespace not found and wasn't created */
                  nsPtr = NULL;
--- 1955,1961 ----
                  Tcl_PopCallFrame(interp);
  
                  if (nsPtr == NULL) {
!                     Tcl_Panic("Could not create namespace '%s'", nsName);
                  }
              } else {		/* namespace not found and wasn't created */
                  nsPtr = NULL;
***************
*** 4731,4737 ****
      }
  
      default:
! 	panic("unexpected ensemble command");
      }
      return TCL_OK;
  }
--- 4731,4737 ----
      }
  
      default:
! 	Tcl_Panic("unexpected ensemble command");
      }
      return TCL_OK;
  }
***************
*** 4894,4900 ****
  	}
  	hPtr = Tcl_FindHashEntry(&ensemblePtr->subcommandTable, fullName);
  	if (hPtr == NULL) {
! 	    panic("full name %s not found in supposedly synchronized hash",
  		    fullName);
  	}
  	prefixObj = (Tcl_Obj *) Tcl_GetHashValue(hPtr);
--- 4894,4900 ----
  	}
  	hPtr = Tcl_FindHashEntry(&ensemblePtr->subcommandTable, fullName);
  	if (hPtr == NULL) {
! 	    Tcl_Panic("full name %s not found in supposedly synchronized hash",
  		    fullName);
  	}
  	prefixObj = (Tcl_Obj *) Tcl_GetHashValue(hPtr);

*** generic/tclObj.c	14 Oct 2003 15:44:53 -0000	1.52
--- generic/tclObj.c	24 Dec 2003 01:47:45 -0000
***************
*** 539,545 ****
          tablePtr = tsdPtr->objThreadMap;
          hPtr = Tcl_CreateHashEntry(tablePtr, (char *) objPtr, &new);
          if (!new) {
!             panic("expected to create new entry for object map");
          }
          Tcl_SetHashValue(hPtr, NULL);
      }
--- 539,545 ----
          tablePtr = tsdPtr->objThreadMap;
          hPtr = Tcl_CreateHashEntry(tablePtr, (char *) objPtr, &new);
          if (!new) {
!             Tcl_Panic("expected to create new entry for object map");
          }
          Tcl_SetHashValue(hPtr, NULL);
      }
***************
*** 743,749 ****
      
  #ifdef TCL_MEM_DEBUG
      if ((objPtr)->refCount < -1) {
! 	panic("Reference count for %lx was negative", objPtr);
      }
  #endif /* TCL_MEM_DEBUG */
  
--- 743,749 ----
      
  #ifdef TCL_MEM_DEBUG
      if ((objPtr)->refCount < -1) {
! 	Tcl_Panic("Reference count for %lx was negative", objPtr);
      }
  #endif /* TCL_MEM_DEBUG */
  
***************
*** 862,868 ****
      }
  
      if (objPtr->typePtr->updateStringProc == NULL) {
! 	panic("UpdateStringProc should not be invoked for type %s",
  		objPtr->typePtr->name);
      }
      (*objPtr->typePtr->updateStringProc)(objPtr);
--- 862,868 ----
      }
  
      if (objPtr->typePtr->updateStringProc == NULL) {
! 	Tcl_Panic("UpdateStringProc should not be invoked for type %s",
  		objPtr->typePtr->name);
      }
      (*objPtr->typePtr->updateStringProc)(objPtr);
***************
*** 902,908 ****
  {
      if (objPtr->bytes == NULL) {
  	if (objPtr->typePtr->updateStringProc == NULL) {
! 	    panic("UpdateStringProc should not be invoked for type %s",
  		    objPtr->typePtr->name);
  	}
  	(*objPtr->typePtr->updateStringProc)(objPtr);
--- 902,908 ----
  {
      if (objPtr->bytes == NULL) {
  	if (objPtr->typePtr->updateStringProc == NULL) {
! 	    Tcl_Panic("UpdateStringProc should not be invoked for type %s",
  		    objPtr->typePtr->name);
  	}
  	(*objPtr->typePtr->updateStringProc)(objPtr);
***************
*** 1081,1087 ****
      register Tcl_ObjType *oldTypePtr = objPtr->typePtr;
  
      if (Tcl_IsShared(objPtr)) {
! 	panic("Tcl_SetBooleanObj called with shared object");
      }
      
      if ((oldTypePtr != NULL) && (oldTypePtr->freeIntRepProc != NULL)) {
--- 1081,1087 ----
      register Tcl_ObjType *oldTypePtr = objPtr->typePtr;
  
      if (Tcl_IsShared(objPtr)) {
! 	Tcl_Panic("Tcl_SetBooleanObj called with shared object");
      }
      
      if ((oldTypePtr != NULL) && (oldTypePtr->freeIntRepProc != NULL)) {
***************
*** 1497,1503 ****
      register Tcl_ObjType *oldTypePtr = objPtr->typePtr;
  
      if (Tcl_IsShared(objPtr)) {
! 	panic("Tcl_SetDoubleObj called with shared object");
      }
  
      if ((oldTypePtr != NULL) && (oldTypePtr->freeIntRepProc != NULL)) {
--- 1497,1503 ----
      register Tcl_ObjType *oldTypePtr = objPtr->typePtr;
  
      if (Tcl_IsShared(objPtr)) {
! 	Tcl_Panic("Tcl_SetDoubleObj called with shared object");
      }
  
      if ((oldTypePtr != NULL) && (oldTypePtr->freeIntRepProc != NULL)) {
***************
*** 1760,1766 ****
      register Tcl_ObjType *oldTypePtr = objPtr->typePtr;
  
      if (Tcl_IsShared(objPtr)) {
! 	panic("Tcl_SetIntObj called with shared object");
      }
      
      if ((oldTypePtr != NULL) && (oldTypePtr->freeIntRepProc != NULL)) {
--- 1760,1766 ----
      register Tcl_ObjType *oldTypePtr = objPtr->typePtr;
  
      if (Tcl_IsShared(objPtr)) {
! 	Tcl_Panic("Tcl_SetIntObj called with shared object");
      }
      
      if ((oldTypePtr != NULL) && (oldTypePtr->freeIntRepProc != NULL)) {
***************
*** 2124,2130 ****
      register Tcl_ObjType *oldTypePtr = objPtr->typePtr;
  
      if (Tcl_IsShared(objPtr)) {
! 	panic("Tcl_SetLongObj called with shared object");
      }
  
      if ((oldTypePtr != NULL) && (oldTypePtr->freeIntRepProc != NULL)) {
--- 2124,2130 ----
      register Tcl_ObjType *oldTypePtr = objPtr->typePtr;
  
      if (Tcl_IsShared(objPtr)) {
! 	Tcl_Panic("Tcl_SetLongObj called with shared object");
      }
  
      if ((oldTypePtr != NULL) && (oldTypePtr->freeIntRepProc != NULL)) {
***************
*** 2487,2493 ****
      register Tcl_ObjType *oldTypePtr = objPtr->typePtr;
  
      if (Tcl_IsShared(objPtr)) {
! 	panic("Tcl_SetWideIntObj called with shared object");
      }
  
      if ((oldTypePtr != NULL) && (oldTypePtr->freeIntRepProc != NULL)) {
--- 2487,2493 ----
      register Tcl_ObjType *oldTypePtr = objPtr->typePtr;
  
      if (Tcl_IsShared(objPtr)) {
! 	Tcl_Panic("Tcl_SetWideIntObj called with shared object");
      }
  
      if ((oldTypePtr != NULL) && (oldTypePtr->freeIntRepProc != NULL)) {
***************
*** 2573,2579 ****
      if (objPtr->refCount == 0x61616161) {
  	fprintf(stderr, "file = %s, line = %d\n", file, line);
  	fflush(stderr);
! 	panic("Trying to increment refCount of previously disposed object.");
      }
  # ifdef TCL_THREADS
      /*
--- 2573,2579 ----
      if (objPtr->refCount == 0x61616161) {
  	fprintf(stderr, "file = %s, line = %d\n", file, line);
  	fflush(stderr);
! 	Tcl_Panic("Trying to increment refCount of previously disposed object.");
      }
  # ifdef TCL_THREADS
      /*
***************
*** 2589,2599 ****
          ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
          tablePtr = tsdPtr->objThreadMap;
          if (!tablePtr) {
!             panic("object table not initialized");
          }
          hPtr = Tcl_FindHashEntry(tablePtr, (char *) objPtr);
          if (!hPtr) {
!             panic("%s%s",
                      "Trying to incr ref count of",
                      "Tcl_Obj allocated in another thread");
          }
--- 2589,2599 ----
          ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
          tablePtr = tsdPtr->objThreadMap;
          if (!tablePtr) {
!             Tcl_Panic("object table not initialized");
          }
          hPtr = Tcl_FindHashEntry(tablePtr, (char *) objPtr);
          if (!hPtr) {
!             Tcl_Panic("%s%s",
                      "Trying to incr ref count of",
                      "Tcl_Obj allocated in another thread");
          }
***************
*** 2637,2643 ****
      if (objPtr->refCount == 0x61616161) {
  	fprintf(stderr, "file = %s, line = %d\n", file, line);
  	fflush(stderr);
! 	panic("Trying to decrement refCount of previously disposed object.");
      }
  # ifdef TCL_THREADS
      /*
--- 2637,2643 ----
      if (objPtr->refCount == 0x61616161) {
  	fprintf(stderr, "file = %s, line = %d\n", file, line);
  	fflush(stderr);
! 	Tcl_Panic("Trying to decrement refCount of previously disposed object.");
      }
  # ifdef TCL_THREADS
      /*
***************
*** 2653,2663 ****
          ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
          tablePtr = tsdPtr->objThreadMap;
          if (!tablePtr) {
!             panic("object table not initialized");
          }
          hPtr = Tcl_FindHashEntry(tablePtr, (char *) objPtr);
          if (!hPtr) {
!             panic("%s%s",
                      "Trying to decr ref count of",
                      "Tcl_Obj allocated in another thread");
          }
--- 2653,2663 ----
          ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
          tablePtr = tsdPtr->objThreadMap;
          if (!tablePtr) {
!             Tcl_Panic("object table not initialized");
          }
          hPtr = Tcl_FindHashEntry(tablePtr, (char *) objPtr);
          if (!hPtr) {
!             Tcl_Panic("%s%s",
                      "Trying to decr ref count of",
                      "Tcl_Obj allocated in another thread");
          }
***************
*** 2707,2713 ****
      if (objPtr->refCount == 0x61616161) {
  	fprintf(stderr, "file = %s, line = %d\n", file, line);
  	fflush(stderr);
! 	panic("Trying to check whether previously disposed object is shared.");
      }
  # ifdef TCL_THREADS
      /*
--- 2707,2713 ----
      if (objPtr->refCount == 0x61616161) {
  	fprintf(stderr, "file = %s, line = %d\n", file, line);
  	fflush(stderr);
! 	Tcl_Panic("Trying to check whether previously disposed object is shared.");
      }
  # ifdef TCL_THREADS
      /*
***************
*** 2723,2733 ****
          ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
          tablePtr = tsdPtr->objThreadMap;
          if (!tablePtr) {
!             panic("object table not initialized");
          }
          hPtr = Tcl_FindHashEntry(tablePtr, (char *) objPtr);
          if (!hPtr) {
!             panic("%s%s",
                      "Trying to check shared status of",
                      "Tcl_Obj allocated in another thread");
          }
--- 2723,2733 ----
          ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
          tablePtr = tsdPtr->objThreadMap;
          if (!tablePtr) {
!             Tcl_Panic("object table not initialized");
          }
          hPtr = Tcl_FindHashEntry(tablePtr, (char *) objPtr);
          if (!hPtr) {
!             Tcl_Panic("%s%s",
                      "Trying to check shared status of",
                      "Tcl_Obj allocated in another thread");
          }

*** generic/tclParse.c	24 Nov 2003 19:06:08 -0000	1.31
--- generic/tclParse.c	24 Dec 2003 01:47:48 -0000
***************
*** 1002,1008 ****
  	    parsePtr->numTokens++;
  	    src++; numBytes--;
  	} else {
! 	    panic("ParseTokens encountered unknown character");
  	}
      }
      if (parsePtr->numTokens == originalTokens) {
--- 1002,1008 ----
  	    parsePtr->numTokens++;
  	    src++; numBytes--;
  	} else {
! 	    Tcl_Panic("ParseTokens encountered unknown character");
  	}
      }
      if (parsePtr->numTokens == originalTokens) {

*** generic/tclPathObj.c	17 Dec 2003 09:55:11 -0000	1.18
--- generic/tclPathObj.c	24 Dec 2003 01:47:51 -0000
***************
*** 2013,2019 ****
      Tcl_Obj *copy;
      
      if (PATHFLAGS(objPtr) == 0 || fsPathPtr->cwdPtr == NULL) {
! 	panic("Called UpdateStringOfFsPath with invalid object");
      }
      
      copy = Tcl_DuplicateObj(fsPathPtr->cwdPtr);
--- 2013,2019 ----
      Tcl_Obj *copy;
      
      if (PATHFLAGS(objPtr) == 0 || fsPathPtr->cwdPtr == NULL) {
! 	Tcl_Panic("Called UpdateStringOfFsPath with invalid object");
      }
      
      copy = Tcl_DuplicateObj(fsPathPtr->cwdPtr);

*** generic/tclPkg.c	22 Feb 2002 22:36:09 -0000	1.9
--- generic/tclPkg.c	24 Dec 2003 01:47:53 -0000
***************
*** 794,800 ****
  	    break;
  	}
  	default: {
! 	    panic("Tcl_PackageObjCmd: bad option index to pkgOptions");
  	}
      }
      return TCL_OK;
--- 794,800 ----
  	    break;
  	}
  	default: {
! 	    Tcl_Panic("Tcl_PackageObjCmd: bad option index to pkgOptions");
  	}
      }
      return TCL_OK;

*** generic/tclPreserve.c	16 Jul 2003 21:24:12 -0000	1.4
--- generic/tclPreserve.c	24 Dec 2003 01:47:55 -0000
***************
*** 251,257 ****
       * Reference not found.  This is a bug in the caller.
       */
  
!     panic("Tcl_Release couldn't find reference for 0x%x", clientData);
  }
  
  /*
--- 251,257 ----
       * Reference not found.  This is a bug in the caller.
       */
  
!     Tcl_Panic("Tcl_Release couldn't find reference for 0x%x", clientData);
  }
  
  /*
***************
*** 292,298 ****
  	    continue;
  	}
  	if (refPtr->mustFree) {
! 	    panic("Tcl_EventuallyFree called twice for 0x%x\n", clientData);
          }
          refPtr->mustFree = 1;
  	refPtr->freeProc = freeProc;
--- 292,298 ----
  	    continue;
  	}
  	if (refPtr->mustFree) {
! 	    Tcl_Panic("Tcl_EventuallyFree called twice for 0x%x\n", clientData);
          }
          refPtr->mustFree = 1;
  	refPtr->freeProc = freeProc;
***************
*** 387,396 ****
      handlePtr = (HandleStruct *) handle;
  #ifdef TCL_MEM_DEBUG
      if (handlePtr->refCount == 0x61616161) {
! 	panic("using previously disposed TclHandle %x", handlePtr);
      }
      if (handlePtr->ptr2 != handlePtr->ptr) {
! 	panic("someone has changed the block referenced by the handle %x\nfrom %x to %x",
  		handlePtr, handlePtr->ptr2, handlePtr->ptr);
      }
  #endif
--- 387,396 ----
      handlePtr = (HandleStruct *) handle;
  #ifdef TCL_MEM_DEBUG
      if (handlePtr->refCount == 0x61616161) {
! 	Tcl_Panic("using previously disposed TclHandle %x", handlePtr);
      }
      if (handlePtr->ptr2 != handlePtr->ptr) {
! 	Tcl_Panic("someone has changed the block referenced by the handle %x\nfrom %x to %x",
  		handlePtr, handlePtr->ptr2, handlePtr->ptr);
      }
  #endif
***************
*** 430,440 ****
      handlePtr = (HandleStruct *) handle;
  #ifdef TCL_MEM_DEBUG
      if (handlePtr->refCount == 0x61616161) {
! 	panic("using previously disposed TclHandle %x", handlePtr);
      }
      if ((handlePtr->ptr != NULL)
  	    && (handlePtr->ptr != handlePtr->ptr2)) {
! 	panic("someone has changed the block referenced by the handle %x\nfrom %x to %x",
  		handlePtr, handlePtr->ptr2, handlePtr->ptr);
      }
  #endif
--- 430,440 ----
      handlePtr = (HandleStruct *) handle;
  #ifdef TCL_MEM_DEBUG
      if (handlePtr->refCount == 0x61616161) {
! 	Tcl_Panic("using previously disposed TclHandle %x", handlePtr);
      }
      if ((handlePtr->ptr != NULL)
  	    && (handlePtr->ptr != handlePtr->ptr2)) {
! 	Tcl_Panic("someone has changed the block referenced by the handle %x\nfrom %x to %x",
  		handlePtr, handlePtr->ptr2, handlePtr->ptr);
      }
  #endif
***************
*** 472,482 ****
      handlePtr = (HandleStruct *) handle;
  #ifdef TCL_MEM_DEBUG
      if (handlePtr->refCount == 0x61616161) {
! 	panic("using previously disposed TclHandle %x", handlePtr);
      }
      if ((handlePtr->ptr != NULL)
  	    && (handlePtr->ptr != handlePtr->ptr2)) {
! 	panic("someone has changed the block referenced by the handle %x\nfrom %x to %x",
  		handlePtr, handlePtr->ptr2, handlePtr->ptr);
      }
  #endif
--- 472,482 ----
      handlePtr = (HandleStruct *) handle;
  #ifdef TCL_MEM_DEBUG
      if (handlePtr->refCount == 0x61616161) {
! 	Tcl_Panic("using previously disposed TclHandle %x", handlePtr);
      }
      if ((handlePtr->ptr != NULL)
  	    && (handlePtr->ptr != handlePtr->ptr2)) {
! 	Tcl_Panic("someone has changed the block referenced by the handle %x\nfrom %x to %x",
  		handlePtr, handlePtr->ptr2, handlePtr->ptr);
      }
  #endif

*** generic/tclProc.c	21 Oct 2003 20:42:05 -0000	1.48
--- generic/tclProc.c	24 Dec 2003 01:47:58 -0000
***************
*** 994,1005 ****
      argCt = objc;
      for (i = 1, argCt -= 1;  i <= numArgs;  i++, argCt--) {
  	if (!TclIsVarArgument(localPtr)) {
! 	    panic("TclObjInterpProc: local variable %s is not argument but should be",
  		  localPtr->name);
  	    return TCL_ERROR;
  	}
  	if (TclIsVarTemporary(localPtr)) {
! 	    panic("TclObjInterpProc: local variable %d is temporary but should be an argument", i);
  	    return TCL_ERROR;
  	}
  
--- 994,1005 ----
      argCt = objc;
      for (i = 1, argCt -= 1;  i <= numArgs;  i++, argCt--) {
  	if (!TclIsVarArgument(localPtr)) {
! 	    Tcl_Panic("TclObjInterpProc: local variable %s is not argument but should be",
  		  localPtr->name);
  	    return TCL_ERROR;
  	}
  	if (TclIsVarTemporary(localPtr)) {
! 	    Tcl_Panic("TclObjInterpProc: local variable %d is temporary but should be an argument", i);
  	    return TCL_ERROR;
  	}
  
***************
*** 1623,1636 ****
   * ProcBodySetFromAny --
   *
   *  Tcl_ObjType's SetFromAny function for the proc body object.
!  *  Calls panic.
   *
   * Results:
   *  Theoretically returns a TCL result code.
   *
   * Side effects:
!  *  Calls panic, since we can't set the value of the object from a string
!  *  representation (or any other internal ones).
   *
   *----------------------------------------------------------------------
   */
--- 1623,1636 ----
   * ProcBodySetFromAny --
   *
   *  Tcl_ObjType's SetFromAny function for the proc body object.
!  *  Calls Tcl_Panic.
   *
   * Results:
   *  Theoretically returns a TCL result code.
   *
   * Side effects:
!  *  Calls Tcl_Panic, since we can't set the value of the object from a
!  *  string representation (or any other internal ones).
   *
   *----------------------------------------------------------------------
   */
***************
*** 1640,1646 ****
      Tcl_Interp *interp;			/* current interpreter */
      Tcl_Obj *objPtr;			/* object pointer */
  {
!     panic("called ProcBodySetFromAny");
  
      /*
       * this to keep compilers happy.
--- 1640,1646 ----
      Tcl_Interp *interp;			/* current interpreter */
      Tcl_Obj *objPtr;			/* object pointer */
  {
!     Tcl_Panic("called ProcBodySetFromAny");
  
      /*
       * this to keep compilers happy.
***************
*** 1655,1667 ****
   * ProcBodyUpdateString --
   *
   *  Tcl_ObjType's UpdateString function for the proc body object.
!  *  Calls panic.
   *
   * Results:
   *  None.
   *
   * Side effects:
!  *  Calls panic, since we this type has no string representation.
   *
   *----------------------------------------------------------------------
   */
--- 1655,1667 ----
   * ProcBodyUpdateString --
   *
   *  Tcl_ObjType's UpdateString function for the proc body object.
!  *  Calls Tcl_Panic.
   *
   * Results:
   *  None.
   *
   * Side effects:
!  *  Calls Tcl_Panic, since we this type has no string representation.
   *
   *----------------------------------------------------------------------
   */
***************
*** 1670,1676 ****
  ProcBodyUpdateString(objPtr)
      Tcl_Obj *objPtr;		/* the object to update */
  {
!     panic("called ProcBodyUpdateString");
  }
  
  
--- 1670,1676 ----
  ProcBodyUpdateString(objPtr)
      Tcl_Obj *objPtr;		/* the object to update */
  {
!     Tcl_Panic("called ProcBodyUpdateString");
  }
  
  

*** generic/tclStringObj.c	14 Oct 2003 15:44:53 -0000	1.33
--- generic/tclStringObj.c	24 Dec 2003 01:48:00 -0000
***************
*** 707,713 ****
       */
  
      if (Tcl_IsShared(objPtr)) {
! 	panic("Tcl_SetStringObj called with shared object");
      }
  
      /*
--- 707,713 ----
       */
  
      if (Tcl_IsShared(objPtr)) {
! 	Tcl_Panic("Tcl_SetStringObj called with shared object");
      }
  
      /*
***************
*** 761,767 ****
      String *stringPtr;
  
      if (Tcl_IsShared(objPtr)) {
! 	panic("Tcl_SetObjLength called with shared object");
      }
      SetStringFromAny(NULL, objPtr);
      
--- 761,767 ----
      String *stringPtr;
  
      if (Tcl_IsShared(objPtr)) {
! 	Tcl_Panic("Tcl_SetObjLength called with shared object");
      }
      SetStringFromAny(NULL, objPtr);
      
***************
*** 856,862 ****
      String *stringPtr;
  
      if (Tcl_IsShared(objPtr)) {
! 	panic("Tcl_AttemptSetObjLength called with shared object");
      }
      SetStringFromAny(NULL, objPtr);
          
--- 856,862 ----
      String *stringPtr;
  
      if (Tcl_IsShared(objPtr)) {
! 	Tcl_Panic("Tcl_AttemptSetObjLength called with shared object");
      }
      SetStringFromAny(NULL, objPtr);
          
***************
*** 1024,1030 ****
      int toCopy = 0;
  
      if (Tcl_IsShared(objPtr)) {
! 	panic("TclAppendLimitedToObj called with shared object");
      }
  
      SetStringFromAny(NULL, objPtr);
--- 1024,1030 ----
      int toCopy = 0;
  
      if (Tcl_IsShared(objPtr)) {
! 	Tcl_Panic("TclAppendLimitedToObj called with shared object");
      }
  
      SetStringFromAny(NULL, objPtr);
***************
*** 1127,1133 ****
      String *stringPtr;
  
      if (Tcl_IsShared(objPtr)) {
! 	panic("Tcl_AppendUnicodeToObj called with shared object");
      }
  
      if (length == 0) {
--- 1127,1133 ----
      String *stringPtr;
  
      if (Tcl_IsShared(objPtr)) {
! 	Tcl_Panic("Tcl_AppendUnicodeToObj called with shared object");
      }
  
      if (length == 0) {
***************
*** 1504,1510 ****
      int nargs, i;
  
      if (Tcl_IsShared(objPtr)) {
! 	panic("Tcl_AppendStringsToObj called with shared object");
      }
  
      SetStringFromAny(NULL, objPtr);
--- 1504,1510 ----
      int nargs, i;
  
      if (Tcl_IsShared(objPtr)) {
! 	Tcl_Panic("Tcl_AppendStringsToObj called with shared object");
      }
  
      SetStringFromAny(NULL, objPtr);

*** generic/tclTest.c	16 Nov 2003 00:49:20 -0000	1.73
--- generic/tclTest.c	24 Dec 2003 01:48:05 -0000
***************
*** 4010,4016 ****
       */
  
      argString = Tcl_Merge(argc-1, argv+1);
!     panic(argString);
      ckfree((char *)argString);
   
      return TCL_OK;
--- 4010,4016 ----
       */
  
      argString = Tcl_Merge(argc-1, argv+1);
!     Tcl_Panic(argString);
      ckfree((char *)argString);
   
      return TCL_OK;
***************
*** 5767,5773 ****
                  /* Empty loop body. */
              }
              if (prevEsPtr == (EventScriptRecord *) NULL) {
!                 panic("TestChannelEventCmd: damaged event script list");
              }
              prevEsPtr->nextPtr = esPtr->nextPtr;
          }
--- 5767,5773 ----
                  /* Empty loop body. */
              }
              if (prevEsPtr == (EventScriptRecord *) NULL) {
!                 Tcl_Panic("TestChannelEventCmd: damaged event script list");
              }
              prevEsPtr->nextPtr = esPtr->nextPtr;
          }

*** generic/tclThreadAlloc.c	16 Dec 2003 11:34:45 -0000	1.7
--- generic/tclThreadAlloc.c	24 Dec 2003 01:48:08 -0000
***************
*** 209,215 ****
      if (cachePtr == NULL) {
      	cachePtr = calloc(1, sizeof(Cache));
      	if (cachePtr == NULL) {
! 	    panic("alloc: could not allocate new cache");
      	}
      	Tcl_MutexLock(listLockPtr);
      	cachePtr->nextPtr = firstCachePtr;
--- 209,215 ----
      if (cachePtr == NULL) {
      	cachePtr = calloc(1, sizeof(Cache));
      	if (cachePtr == NULL) {
! 	    Tcl_Panic("alloc: could not allocate new cache");
      	}
      	Tcl_MutexLock(listLockPtr);
      	cachePtr->nextPtr = firstCachePtr;
***************
*** 535,541 ****
  	    cachePtr->nobjs = nmove = NOBJALLOC;
  	    newObjsPtr = malloc(sizeof(Tcl_Obj) * nmove);
  	    if (newObjsPtr == NULL) {
! 		panic("alloc: could not allocate %d new objects", nmove);
  	    }
  	    while (--nmove >= 0) {
  		objPtr = &newObjsPtr[nmove];
--- 535,541 ----
  	    cachePtr->nobjs = nmove = NOBJALLOC;
  	    newObjsPtr = malloc(sizeof(Tcl_Obj) * nmove);
  	    if (newObjsPtr == NULL) {
! 		Tcl_Panic("alloc: could not allocate %d new objects", nmove);
  	    }
  	    while (--nmove >= 0) {
  		objPtr = &newObjsPtr[nmove];
***************
*** 742,748 ****
  	|| ((unsigned char *) ptr)[blockPtr->b_reqsize] != MAGIC
  #endif
  	|| blockPtr->b_magic2 != MAGIC) {
! 	panic("alloc: invalid block: %p: %x %x %x\n",
  	    blockPtr, blockPtr->b_magic1, blockPtr->b_magic2,
  	    ((unsigned char *) ptr)[blockPtr->b_reqsize]);
      }
--- 742,748 ----
  	|| ((unsigned char *) ptr)[blockPtr->b_reqsize] != MAGIC
  #endif
  	|| blockPtr->b_magic2 != MAGIC) {
! 	Tcl_Panic("alloc: invalid block: %p: %x %x %x\n",
  	    blockPtr, blockPtr->b_magic1, blockPtr->b_magic2,
  	    ((unsigned char *) ptr)[blockPtr->b_reqsize]);
      }

*** generic/tclTimer.c	1 Mar 2002 06:22:31 -0000	1.6
--- generic/tclTimer.c	24 Dec 2003 01:48:10 -0000
***************
*** 936,942 ****
  	    break;
  	}
  	default: {
! 	    panic("Tcl_AfterObjCmd: bad subcommand index to afterSubCmds");
  	}
      }
      return TCL_OK;
--- 936,942 ----
  	    break;
  	}
  	default: {
! 	    Tcl_Panic("Tcl_AfterObjCmd: bad subcommand index to afterSubCmds");
  	}
      }
      return TCL_OK;

*** generic/tclTrace.c	3 Oct 2003 20:42:06 -0000	1.6
--- generic/tclTrace.c	24 Dec 2003 01:48:14 -0000
***************
*** 1810,1816 ****
  		    Tcl_DStringAppendElement(&cmd, "leavestep");
  		}
  	    } else {
! 		panic("TraceExecutionProc: bad flag combination");
  	    }
  	    
  	    /*
--- 1810,1816 ----
  		    Tcl_DStringAppendElement(&cmd, "leavestep");
  		}
  	    } else {
! 		Tcl_Panic("TraceExecutionProc: bad flag combination");
  	    }
  	    
  	    /*
***************
*** 2985,2995 ****
  
      /*
       * Check for a nonsense flag combination.  Note that this is a
!      * panic() because there should be no code path that ever sets
       * both flags.
       */
      if ((flags&TCL_TRACE_RESULT_DYNAMIC) && (flags&TCL_TRACE_RESULT_OBJECT)) {
! 	panic("bad result flag combination");
      }
  
      /*
--- 2985,2995 ----
  
      /*
       * Check for a nonsense flag combination.  Note that this is a
!      * Tcl_Panic() because there should be no code path that ever sets
       * both flags.
       */
      if ((flags&TCL_TRACE_RESULT_DYNAMIC) && (flags&TCL_TRACE_RESULT_OBJECT)) {
! 	Tcl_Panic("bad result flag combination");
      }
  
      /*

*** generic/tclVar.c	20 Nov 2003 18:37:55 -0000	1.76
--- generic/tclVar.c	24 Dec 2003 01:48:19 -0000
***************
*** 3345,3351 ****
  
      if (index >= 0) {
  	if (!varFramePtr->isProcCallFrame) {
! 	    panic("ObjMakeUpvar called with an index outside from a proc.\n");
  	}
  	varPtr = &(varFramePtr->compiledLocals[index]);
      } else {
--- 3345,3351 ----
  
      if (index >= 0) {
  	if (!varFramePtr->isProcCallFrame) {
! 	    Tcl_Panic("ObjMakeUpvar called with an index outside from a proc.\n");
  	}
  	varPtr = &(varFramePtr->compiledLocals[index]);
      } else {
***************
*** 4686,4692 ****
  	 * This is a parsed scalar name: what is it
  	 * doing here?
  	 */
! 	panic("ERROR: scalar parsedVarName without a string rep.\n");
      }
      part1 = Tcl_GetStringFromObj(arrayPtr, &len1);
      len2 = strlen(part2);
--- 4686,4692 ----
  	 * This is a parsed scalar name: what is it
  	 * doing here?
  	 */
! 	Tcl_Panic("ERROR: scalar parsedVarName without a string rep.\n");
      }
      part1 = Tcl_GetStringFromObj(arrayPtr, &len1);
      len2 = strlen(part2);

*** mac/tclMacChan.c	3 Mar 2003 20:22:42 -0000	1.21
--- mac/tclMacChan.c	24 Dec 2003 01:48:22 -0000
***************
*** 434,440 ****
  	} else if (fd == 2) {
  	    tsdPtr->stderrChannel = NULL;
  	} else {
! 	    panic("recieved invalid std file");
  	}
      
  	if (close(fd) < 0) {
--- 434,440 ----
  	} else if (fd == 2) {
  	    tsdPtr->stderrChannel = NULL;
  	} else {
! 	    Tcl_Panic("recieved invalid std file");
  	}
      
  	if (close(fd) < 0) {
***************
*** 696,702 ****
  	    bufMode = "none";
  	    break;
  	default:
! 	    panic("TclGetDefaultStdChannel: Unexpected channel type");
  	    break;
      }
  
--- 696,702 ----
  	    bufMode = "none";
  	    break;
  	default:
! 	    Tcl_Panic("TclGetDefaultStdChannel: Unexpected channel type");
  	    break;
      }
  
***************
*** 987,993 ****
      FlushVol(NULL, fileState->volumeRef);
      if (err != noErr) {
  	errorCode = errno = TclMacOSErrorToPosixError(err);
! 	panic("error during file close");
      }
  
      ckfree((char *) fileState);
--- 987,993 ----
      FlushVol(NULL, fileState->volumeRef);
      if (err != noErr) {
  	errorCode = errno = TclMacOSErrorToPosixError(err);
! 	Tcl_Panic("error during file close");
      }
  
      ckfree((char *) fileState);
***************
*** 1258,1266 ****
       * local data in each thread.
       */
  
!     if (!removed)
!         panic("file info ptr not on thread channel list");
! 
  }
  
  /*
--- 1258,1266 ----
       * local data in each thread.
       */
  
!     if (!removed) {
!         Tcl_Panic("file info ptr not on thread channel list");
!     }
  }
  
  /*

*** mac/tclMacOSA.c	9 Oct 2002 11:54:30 -0000	1.10
--- mac/tclMacOSA.c	24 Dec 2003 01:48:25 -0000
***************
*** 222,228 ****
      LanguagesTable = (Tcl_HashTable *) ckalloc(sizeof(Tcl_HashTable));
  	
      if (LanguagesTable == NULL) {
! 	panic("Memory Error Allocating Languages Hash Table");
      }
  	
      Tcl_SetAssocData(interp, "OSAScript_LangTable", NULL, LanguagesTable);
--- 222,228 ----
      LanguagesTable = (Tcl_HashTable *) ckalloc(sizeof(Tcl_HashTable));
  	
      if (LanguagesTable == NULL) {
! 	Tcl_Panic("Memory Error Allocating Languages Hash Table");
      }
  	
      Tcl_SetAssocData(interp, "OSAScript_LangTable", NULL, LanguagesTable);
***************
*** 300,306 ****
      ComponentTable = (Tcl_HashTable *) ckalloc(sizeof(Tcl_HashTable));
  	
      if (ComponentTable == NULL) {
! 	panic("Memory Error Allocating Hash Table");
      }
  	
      Tcl_SetAssocData(interp, "OSAScript_CompTable", NULL, ComponentTable);
--- 300,306 ----
      ComponentTable = (Tcl_HashTable *) ckalloc(sizeof(Tcl_HashTable));
  	
      if (ComponentTable == NULL) {
! 	Tcl_Panic("Memory Error Allocating Hash Table");
      }
  	
      Tcl_SetAssocData(interp, "OSAScript_CompTable", NULL, ComponentTable);
***************
*** 1860,1866 ****
  		"OSAScript_CompTable", (Tcl_InterpDeleteProc **) NULL);
  	
      if (ComponentTable == NULL) {
! 	panic("Error, could not get the Component Table from the Associated data.");
      }
  	
      hashEntry = Tcl_FindHashEntry(ComponentTable, theComponent->theName);
--- 1860,1866 ----
  		"OSAScript_CompTable", (Tcl_InterpDeleteProc **) NULL);
  	
      if (ComponentTable == NULL) {
! 	Tcl_Panic("Error, could not get the Component Table from the Associated data.");
      }
  	
      hashEntry = Tcl_FindHashEntry(ComponentTable, theComponent->theName);

*** mac/tclMacResource.c	23 Oct 2003 10:07:09 -0000	1.19
--- mac/tclMacResource.c	24 Dec 2003 01:48:28 -0000
***************
*** 547,553 ****
  			macPermision = fsRdWrShPerm;
  			break;
  		    default:
! 			panic("Tcl_ResourceObjCmd: invalid mode value");
  		    break;
  		}
  	    } else {
--- 547,553 ----
  			macPermision = fsRdWrShPerm;
  			break;
  		    default:
! 			Tcl_Panic("Tcl_ResourceObjCmd: invalid mode value");
  		    break;
  		}
  	    } else {
***************
*** 791,797 ****
  	        if (resource == NULL) {
  	            resource = NewHandleSys(length);
  	            if (resource == NULL) {
! 	                panic("could not allocate memory to write resource");
  	            }
  	        }
  	        HLock(resource);
--- 791,797 ----
  	        if (resource == NULL) {
  	            resource = NewHandleSys(length);
  	            if (resource == NULL) {
! 	                Tcl_Panic("could not allocate memory to write resource");
  	            }
  	        }
  	        HLock(resource);
***************
*** 862,868 ****
                       
                      SetHandleSize(resource, length);
                      if ( MemError() != noErr ) {
!                         panic("could not allocate memory to write resource");
                      }
  
                      HLock(resource);
--- 862,868 ----
                       
                      SetHandleSize(resource, length);
                      if ( MemError() != noErr ) {
!                         Tcl_Panic("could not allocate memory to write resource");
                      }
  
                      HLock(resource);
***************
*** 916,922 ****
  
  	    return result;
  	default:
! 	    panic("Tcl_GetIndexFromObj returned unrecognized option");
  	    return TCL_ERROR;	/* Should never be reached. */
      }
  }
--- 916,922 ----
  
  	    return result;
  	default:
! 	    Tcl_Panic("Tcl_GetIndexFromObj returned unrecognized option");
  	    return TCL_ERROR;	/* Should never be reached. */
      }
  }
***************
*** 2042,2048 ****
  
      nameHashPtr = Tcl_CreateHashEntry(&nameTable, resourceId, &new);
      if (!new) {
! 	panic("resource id has repeated itself");
      }
      
      resourceRef = (OpenResourceFork *) ckalloc(sizeof(OpenResourceFork));
--- 2042,2048 ----
  
      nameHashPtr = Tcl_CreateHashEntry(&nameTable, resourceId, &new);
      if (!new) {
! 	Tcl_Panic("resource id has repeated itself");
      }
      
      resourceRef = (OpenResourceFork *) ckalloc(sizeof(OpenResourceFork));
***************
*** 2145,2151 ****
  	}
      }
      if (!match) {
!         panic("the resource Fork List is out of synch!");
      }
      
      Tcl_ListObjReplace(NULL, resourceForkList, index, 1, 0, NULL);
--- 2145,2151 ----
  	}
      }
      if (!match) {
! 	Tcl_Panic("the resource Fork List is out of synch!");
      }
      
      Tcl_ListObjReplace(NULL, resourceForkList, index, 1, 0, NULL);
***************
*** 2153,2159 ****
      resourceHashPtr = Tcl_FindHashEntry(&resourceTable, (char *) fileRef);
      
      if (resourceHashPtr == NULL) {
! 	panic("Resource & Name tables are out of synch in resource command.");
      }
      ckfree(Tcl_GetHashValue(resourceHashPtr));
      Tcl_DeleteHashEntry(resourceHashPtr);
--- 2153,2159 ----
      resourceHashPtr = Tcl_FindHashEntry(&resourceTable, (char *) fileRef);
      
      if (resourceHashPtr == NULL) {
! 	Tcl_Panic("Resource & Name tables are out of synch in resource command.");
      }
      ckfree(Tcl_GetHashValue(resourceHashPtr));
      Tcl_DeleteHashEntry(resourceHashPtr);

*** mac/tclMacSock.c	22 Apr 2003 23:20:43 -0000	1.15
--- mac/tclMacSock.c	24 Dec 2003 01:48:31 -0000
***************
*** 737,743 ****
      	if (err != noErr) {
      	    Debugger();
      	    goto afterRelease;
!             /* panic("error closing server socket"); */
      	}
  	statePtr->flags |= TCP_RELEASE;
  
--- 737,743 ----
      	if (err != noErr) {
      	    Debugger();
      	    goto afterRelease;
!             /* Tcl_Panic("error closing server socket"); */
      	}
  	statePtr->flags |= TCP_RELEASE;
  
***************
*** 750,756 ****
  	statePtr->pb.tcpStream = statePtr->tcpStream;
  	err = PBControlSync((ParmBlkPtr) &statePtr->pb);
  	if (err != noErr) {
!             panic("error releasing server socket");
  	}
  
  	/*
--- 750,756 ----
  	statePtr->pb.tcpStream = statePtr->tcpStream;
  	err = PBControlSync((ParmBlkPtr) &statePtr->pb);
  	if (err != noErr) {
!             Tcl_Panic("error releasing server socket");
  	}
  
  	/*
***************
*** 2839,2845 ****
       */
  
      if (!removed)
!         panic("file info ptr not on thread channel list");
      return;
  }
  
--- 2839,2845 ----
       */
  
      if (!removed)
!         Tcl_Panic("file info ptr not on thread channel list");
      return;
  }
  

*** mac/tclMacThrd.c	13 May 2003 10:16:17 -0000	1.7
--- mac/tclMacThrd.c	24 Dec 2003 01:48:33 -0000
***************
*** 710,716 ****
      if ((int) keyVal <= 0)  {
          return NULL;
      } else if ((int) keyVal > keyCounter) {
!         panic("illegal data key value");
      }
      
      GetCurrentThread(&curThread);
--- 710,716 ----
      if ((int) keyVal <= 0)  {
          return NULL;
      } else if ((int) keyVal > keyCounter) {
!         Tcl_Panic("illegal data key value");
      }
      
      GetCurrentThread(&curThread);
***************
*** 755,761 ****
      if ((int) keyVal <= 0)  {
          return NULL;
      } else if ((int) keyVal > keyCounter) {
!         panic("illegal data key value");
      }
      
      GetCurrentThread(&curThread);
--- 755,761 ----
      if ((int) keyVal <= 0)  {
          return NULL;
      } else if ((int) keyVal > keyCounter) {
!         Tcl_Panic("illegal data key value");
      }
      
      GetCurrentThread(&curThread);

*** unix/tclUnixChan.c	18 Nov 2003 23:13:33 -0000	1.44
--- unix/tclUnixChan.c	24 Dec 2003 01:48:37 -0000
***************
*** 1777,1783 ****
  	    /*
  	     * This may occurr if modeString was "", for example.
  	     */
! 	    panic("TclpOpenFileChannel: invalid mode value");
  	    return NULL;
      }
  
--- 1777,1783 ----
  	    /*
  	     * This may occurr if modeString was "", for example.
  	     */
! 	    Tcl_Panic("TclpOpenFileChannel: invalid mode value");
  	    return NULL;
      }
  
***************
*** 3002,3008 ****
  	    bufMode = "none";
  	    break;
  	default:
! 	    panic("TclGetDefaultStdChannel: Unexpected channel type");
  	    break;
      }
  
--- 3002,3008 ----
  	    bufMode = "none";
  	    break;
  	default:
! 	    Tcl_Panic("TclGetDefaultStdChannel: Unexpected channel type");
  	    break;
      }
  
***************
*** 3194,3200 ****
       */
  
      if (fd >= FD_SETSIZE) {
! 	panic("TclWaitForFile can't handle file id %d", fd);
      }
      memset((VOID *) readyMasks, 0, 3*MASK_SIZE*sizeof(fd_mask));
      index = fd/(NBBY*sizeof(fd_mask));
--- 3194,3200 ----
       */
  
      if (fd >= FD_SETSIZE) {
! 	Tcl_Panic("TclWaitForFile can't handle file id %d", fd);
      }
      memset((VOID *) readyMasks, 0, 3*MASK_SIZE*sizeof(fd_mask));
      index = fd/(NBBY*sizeof(fd_mask));
***************
*** 3323,3330 ****
       * local data in each thread.
       */
  
!     if (!removed)
!         panic("file info ptr not on thread channel list");
  
  #endif /* DEPRECATED */
  }
--- 3323,3331 ----
       * local data in each thread.
       */
  
!     if (!removed) {
!         Tcl_Panic("file info ptr not on thread channel list");
!     }
  
  #endif /* DEPRECATED */
  }

*** unix/tclUnixNotfy.c	16 Jul 2003 22:10:37 -0000	1.13
--- unix/tclUnixNotfy.c	24 Dec 2003 01:48:39 -0000
***************
*** 210,216 ****
      if (notifierCount == 0) {
  	if (Tcl_CreateThread(&notifierThread, NotifierThreadProc, NULL,
  		     TCL_THREAD_STACK_DEFAULT, TCL_THREAD_NOFLAGS) != TCL_OK) {
! 	    panic("Tcl_InitNotifier: unable to start notifier thread");
  	}
      }
      notifierCount++;
--- 210,216 ----
      if (notifierCount == 0) {
  	if (Tcl_CreateThread(&notifierThread, NotifierThreadProc, NULL,
  		     TCL_THREAD_STACK_DEFAULT, TCL_THREAD_NOFLAGS) != TCL_OK) {
! 	    Tcl_Panic("Tcl_InitNotifier: unable to start notifier thread");
  	}
      }
      notifierCount++;
***************
*** 263,269 ****
  
      if (notifierCount == 0) {
  	if (triggerPipe < 0) {
! 	    panic("Tcl_FinalizeNotifier: notifier pipe not initialized");
  	}
  
          /*
--- 263,269 ----
  
      if (notifierCount == 0) {
  	if (triggerPipe < 0) {
! 	    Tcl_Panic("Tcl_FinalizeNotifier: notifier pipe not initialized");
  	}
  
          /*
***************
*** 869,875 ****
      char buf[2];
  
      if (pipe(fds) != 0) {
! 	panic("NotifierThreadProc: could not create trigger pipe.");
      }
  
      receivePipe = fds[0];
--- 869,875 ----
      char buf[2];
  
      if (pipe(fds) != 0) {
! 	Tcl_Panic("NotifierThreadProc: could not create trigger pipe.");
      }
  
      receivePipe = fds[0];
***************
*** 878,896 ****
      status = fcntl(receivePipe, F_GETFL);
      status |= O_NONBLOCK;
      if (fcntl(receivePipe, F_SETFL, status) < 0) {
! 	panic("NotifierThreadProc: could not make receive pipe non blocking.");
      }
      status = fcntl(fds[1], F_GETFL);
      status |= O_NONBLOCK;
      if (fcntl(fds[1], F_SETFL, status) < 0) {
! 	panic("NotifierThreadProc: could not make trigger pipe non blocking.");
      }
  #else
      if (ioctl(receivePipe, (int) FIONBIO, &status) < 0) {
! 	panic("NotifierThreadProc: could not make receive pipe non blocking.");
      }
      if (ioctl(fds[1], (int) FIONBIO, &status) < 0) {
! 	panic("NotifierThreadProc: could not make trigger pipe non blocking.");
      }
  #endif
  
--- 878,896 ----
      status = fcntl(receivePipe, F_GETFL);
      status |= O_NONBLOCK;
      if (fcntl(receivePipe, F_SETFL, status) < 0) {
! 	Tcl_Panic("NotifierThreadProc: could not make receive pipe non blocking.");
      }
      status = fcntl(fds[1], F_GETFL);
      status |= O_NONBLOCK;
      if (fcntl(fds[1], F_SETFL, status) < 0) {
! 	Tcl_Panic("NotifierThreadProc: could not make trigger pipe non blocking.");
      }
  #else
      if (ioctl(receivePipe, (int) FIONBIO, &status) < 0) {
! 	Tcl_Panic("NotifierThreadProc: could not make receive pipe non blocking.");
      }
      if (ioctl(fds[1], (int) FIONBIO, &status) < 0) {
! 	Tcl_Panic("NotifierThreadProc: could not make trigger pipe non blocking.");
      }
  #endif
  

*** unix/tclUnixThrd.c	13 May 2003 10:16:17 -0000	1.25
--- unix/tclUnixThrd.c	24 Dec 2003 01:48:42 -0000
***************
*** 916,922 ****
  
      lockPtr = malloc(sizeof(struct lock));
      if (lockPtr == NULL) {
! 	panic("could not allocate lock");
      }
      lockPtr->tlock = (Tcl_Mutex) &lockPtr->plock;
      pthread_mutex_init(&lockPtr->plock, NULL);
--- 916,922 ----
  
      lockPtr = malloc(sizeof(struct lock));
      if (lockPtr == NULL) {
! 	Tcl_Panic("could not allocate lock");
      }
      lockPtr->tlock = (Tcl_Mutex) &lockPtr->plock;
      pthread_mutex_init(&lockPtr->plock, NULL);

*** unix/tclXtNotify.c	2 Jul 1999 06:05:34 -0000	1.4
--- unix/tclXtNotify.c	24 Dec 2003 01:48:44 -0000
***************
*** 135,141 ****
               * after initialization, so we panic.
               */
          
!             panic("TclSetAppContext:  multiple application contexts");
  
          }
      } else {
--- 135,141 ----
               * after initialization, so we panic.
               */
          
!             Tcl_Panic("TclSetAppContext:  multiple application contexts");
  
          }
      } else {

*** win/tclWin32Dll.c	21 Dec 2003 21:58:43 -0000	1.29
--- win/tclWin32Dll.c	24 Dec 2003 01:48:46 -0000
***************
*** 325,331 ****
       */
  
      if (platformId == VER_PLATFORM_WIN32s) {
! 	panic("Win32s is not a supported platform");	
      }
  
      tclWinProcs = &asciiProcs;
--- 325,331 ----
       */
  
      if (platformId == VER_PLATFORM_WIN32s) {
! 	Tcl_Panic("Win32s is not a supported platform");	
      }
  
      tclWinProcs = &asciiProcs;
***************
*** 473,483 ****
                "=r"(RESTORED_HANDLER) );
  
      if (INITIAL_ESP != RESTORED_ESP)
!         panic("ESP restored incorrectly");
      if (INITIAL_EBP != RESTORED_EBP)
!         panic("EBP restored incorrectly");
      if (INITIAL_HANDLER != RESTORED_HANDLER)
!         panic("HANDLER restored incorrectly");
  # endif /* TCL_MEM_DEBUG */
  #else
      } __except (EXCEPTION_EXECUTE_HANDLER) {}
--- 473,483 ----
                "=r"(RESTORED_HANDLER) );
  
      if (INITIAL_ESP != RESTORED_ESP)
!         Tcl_Panic("ESP restored incorrectly");
      if (INITIAL_EBP != RESTORED_EBP)
!         Tcl_Panic("EBP restored incorrectly");
      if (INITIAL_HANDLER != RESTORED_HANDLER)
!         Tcl_Panic("HANDLER restored incorrectly");
  # endif /* TCL_MEM_DEBUG */
  #else
      } __except (EXCEPTION_EXECUTE_HANDLER) {}

*** win/tclWinChan.c	13 Dec 2003 03:11:02 -0000	1.32
--- win/tclWinChan.c	24 Dec 2003 01:48:49 -0000
***************
*** 779,785 ****
  	    channelPermissions = (TCL_READABLE | TCL_WRITABLE);
  	    break;
  	default:
! 	    panic("TclpOpenFileChannel: invalid mode value");
  	    break;
      }
  
--- 779,785 ----
  	    channelPermissions = (TCL_READABLE | TCL_WRITABLE);
  	    break;
  	default:
! 	    Tcl_Panic("TclpOpenFileChannel: invalid mode value");
  	    break;
      }
  
***************
*** 1093,1103 ****
                "=r"(RESTORED_HANDLER) );
  
      if (INITIAL_ESP != RESTORED_ESP)
!         panic("ESP restored incorrectly");
      if (INITIAL_EBP != RESTORED_EBP)
!         panic("EBP restored incorrectly");
      if (INITIAL_HANDLER != RESTORED_HANDLER)
!         panic("HANDLER restored incorrectly");
  # endif /* TCL_MEM_DEBUG */
  
          if (result)
--- 1093,1103 ----
                "=r"(RESTORED_HANDLER) );
  
      if (INITIAL_ESP != RESTORED_ESP)
!         Tcl_Panic("ESP restored incorrectly");
      if (INITIAL_EBP != RESTORED_EBP)
!         Tcl_Panic("EBP restored incorrectly");
      if (INITIAL_HANDLER != RESTORED_HANDLER)
!         Tcl_Panic("HANDLER restored incorrectly");
  # endif /* TCL_MEM_DEBUG */
  
          if (result)
***************
*** 1189,1195 ****
  	    bufMode = "none";
  	    break;
  	default:
! 	    panic("TclGetDefaultStdChannel: Unexpected channel type");
  	    break;
      }
  
--- 1189,1195 ----
  	    bufMode = "none";
  	    break;
  	default:
! 	    Tcl_Panic("TclGetDefaultStdChannel: Unexpected channel type");
  	    break;
      }
  
***************
*** 1388,1396 ****
       * local data in each thread.
       */
  
!     if (!removed)
!         panic("file info ptr not on thread channel list");
! 
  }
  
  /*
--- 1388,1396 ----
       * local data in each thread.
       */
  
!     if (!removed) {
!         Tcl_Panic("file info ptr not on thread channel list");
!     }
  }
  
  /*

*** win/tclWinFCmd.c	17 Dec 2003 17:47:28 -0000	1.38
--- win/tclWinFCmd.c	24 Dec 2003 01:48:52 -0000
***************
*** 238,248 ****
                "=r"(RESTORED_HANDLER) );
  
      if (INITIAL_ESP != RESTORED_ESP)
!         panic("ESP restored incorrectly");
      if (INITIAL_EBP != RESTORED_EBP)
!         panic("EBP restored incorrectly");
      if (INITIAL_HANDLER != RESTORED_HANDLER)
!         panic("HANDLER restored incorrectly");
  # endif /* TCL_MEM_DEBUG */
  #else
      } __except (EXCEPTION_EXECUTE_HANDLER) {}
--- 238,248 ----
                "=r"(RESTORED_HANDLER) );
  
      if (INITIAL_ESP != RESTORED_ESP)
!         Tcl_Panic("ESP restored incorrectly");
      if (INITIAL_EBP != RESTORED_EBP)
!         Tcl_Panic("EBP restored incorrectly");
      if (INITIAL_HANDLER != RESTORED_HANDLER)
!         Tcl_Panic("HANDLER restored incorrectly");
  # endif /* TCL_MEM_DEBUG */
  #else
      } __except (EXCEPTION_EXECUTE_HANDLER) {}
***************
*** 600,610 ****
                "=r"(RESTORED_HANDLER) );
  
      if (INITIAL_ESP != RESTORED_ESP)
!         panic("ESP restored incorrectly");
      if (INITIAL_EBP != RESTORED_EBP)
!         panic("EBP restored incorrectly");
      if (INITIAL_HANDLER != RESTORED_HANDLER)
!         panic("HANDLER restored incorrectly");
  # endif /* TCL_MEM_DEBUG */
  #else
      } __except (EXCEPTION_EXECUTE_HANDLER) {}
--- 600,610 ----
                "=r"(RESTORED_HANDLER) );
  
      if (INITIAL_ESP != RESTORED_ESP)
!         Tcl_Panic("ESP restored incorrectly");
      if (INITIAL_EBP != RESTORED_EBP)
!         Tcl_Panic("EBP restored incorrectly");
      if (INITIAL_HANDLER != RESTORED_HANDLER)
!         Tcl_Panic("HANDLER restored incorrectly");
  # endif /* TCL_MEM_DEBUG */
  #else
      } __except (EXCEPTION_EXECUTE_HANDLER) {}

*** win/tclWinNotify.c	21 Mar 2003 03:23:24 -0000	1.12
--- win/tclWinNotify.c	24 Dec 2003 01:48:54 -0000
***************
*** 107,113 ****
  	class.hCursor = NULL;
  
  	if (!RegisterClassA(&class)) {
! 	    panic("Unable to register TclNotifier window class");
  	}
      }
      notifierCount++;
--- 107,113 ----
  	class.hCursor = NULL;
  
  	if (!RegisterClassA(&class)) {
! 	    Tcl_Panic("Unable to register TclNotifier window class");
  	}
      }
      notifierCount++;

*** win/tclWinPipe.c	21 Oct 2003 23:25:47 -0000	1.38
--- win/tclWinPipe.c	24 Dec 2003 01:48:57 -0000
***************
*** 874,880 ****
  	    break;
  
  	default:
! 	    panic("TclpCloseFile: unexpected file type");
      }
  
      ckfree((char *) filePtr);
--- 874,880 ----
  	    break;
  
  	default:
! 	    Tcl_Panic("TclpCloseFile: unexpected file type");
      }
  
      ckfree((char *) filePtr);
***************
*** 1215,1231 ****
  		    if (*end == '/')
  		        break;
  		}
! 		if (*end != '/')
! 		    panic("no / in executable path name");
  		i = (end - start) + 1;
  		pipeDllPtr = Tcl_NewStringObj(start, i);
  		Tcl_AppendToObj(pipeDllPtr, Tcl_DStringValue(&pipeDll), -1);
  		Tcl_IncrRefCount(pipeDllPtr);
! 		if (Tcl_FSConvertToPathType(interp, pipeDllPtr) != TCL_OK)
! 		    panic("Tcl_FSConvertToPathType failed");
  		fileExists = (Tcl_FSAccess(pipeDllPtr, F_OK) == 0);
  		if (!fileExists) {
! 		    panic("Tcl pipe dll \"%s\" not found",
  		        Tcl_DStringValue(&pipeDll));
  		}
  		Tcl_DStringAppend(&cmdLine, Tcl_DStringValue(&pipeDll), -1);
--- 1215,1233 ----
  		    if (*end == '/')
  		        break;
  		}
! 		if (*end != '/') {
! 		    Tcl_Panic("no / in executable path name");
! 		}
  		i = (end - start) + 1;
  		pipeDllPtr = Tcl_NewStringObj(start, i);
  		Tcl_AppendToObj(pipeDllPtr, Tcl_DStringValue(&pipeDll), -1);
  		Tcl_IncrRefCount(pipeDllPtr);
! 		if (Tcl_FSConvertToPathType(interp, pipeDllPtr) != TCL_OK) {
! 		    Tcl_Panic("Tcl_FSConvertToPathType failed");
! 		}
  		fileExists = (Tcl_FSAccess(pipeDllPtr, F_OK) == 0);
  		if (!fileExists) {
! 		    Tcl_Panic("Tcl pipe dll \"%s\" not found",
  		        Tcl_DStringValue(&pipeDll));
  		}
  		Tcl_DStringAppend(&cmdLine, Tcl_DStringValue(&pipeDll), -1);

*** win/tclWinSock.c	12 Dec 2003 00:59:09 -0000	1.40
--- win/tclWinSock.c	24 Dec 2003 01:49:00 -0000
***************
*** 2726,2732 ****
       */
  
      if (!removed) {
!         panic("file info ptr not on thread channel list");
      }
  
      /*
--- 2726,2732 ----
       */
  
      if (!removed) {
!         Tcl_Panic("file info ptr not on thread channel list");
      }
  
      /*

*** win/tclWinThrd.c	13 May 2003 10:16:17 -0000	1.26
--- win/tclWinThrd.c	24 Dec 2003 01:49:03 -0000
***************
*** 548,554 ****
          if (newKey != TLS_OUT_OF_INDEXES) {
              *indexPtr = newKey;
          } else {
!             panic("TlsAlloc failed from TclpThreadDataKeyInit!"); /* this should be a fatal error */
          }
  	*keyPtr = (Tcl_ThreadDataKey)indexPtr;
  	TclRememberDataKey(keyPtr);
--- 548,554 ----
          if (newKey != TLS_OUT_OF_INDEXES) {
              *indexPtr = newKey;
          } else {
!             Tcl_Panic("TlsAlloc failed from TclpThreadDataKeyInit!"); /* this should be a fatal error */
          }
  	*keyPtr = (Tcl_ThreadDataKey)indexPtr;
  	TclRememberDataKey(keyPtr);
***************
*** 585,591 ****
      } else {
          result = TlsGetValue(*indexPtr);
          if ((result == NULL) && (GetLastError() != NO_ERROR)) {
!             panic("TlsGetValue failed from TclpThreadDataKeyGet!");
          }
  	return result;
      }
--- 585,591 ----
      } else {
          result = TlsGetValue(*indexPtr);
          if ((result == NULL) && (GetLastError() != NO_ERROR)) {
!             Tcl_Panic("TlsGetValue failed from TclpThreadDataKeyGet!");
          }
  	return result;
      }
***************
*** 618,624 ****
      BOOL success;
      success = TlsSetValue(*indexPtr, (void *)data);
      if (!success) {
!         panic("TlsSetValue failed from TclpThreadDataKeySet!");
      }
  }
  
--- 618,624 ----
      BOOL success;
      success = TlsSetValue(*indexPtr, (void *)data);
      if (!success) {
!         Tcl_Panic("TlsSetValue failed from TclpThreadDataKeySet!");
      }
  }
  
***************
*** 657,667 ****
  	    ckfree((char *)result);
  	    success = TlsSetValue(*indexPtr, (void *)NULL);
              if (!success) {
!                 panic("TlsSetValue failed from TclpFinalizeThreadData!");
              }
  	} else {
              if (GetLastError() != NO_ERROR) {
!                 panic("TlsGetValue failed from TclpFinalizeThreadData!");
              }
  	}
      }
--- 657,667 ----
  	    ckfree((char *)result);
  	    success = TlsSetValue(*indexPtr, (void *)NULL);
              if (!success) {
!                 Tcl_Panic("TlsSetValue failed from TclpFinalizeThreadData!");
              }
  	} else {
              if (GetLastError() != NO_ERROR) {
!                 Tcl_Panic("TlsGetValue failed from TclpFinalizeThreadData!");
              }
  	}
      }
***************
*** 697,703 ****
  	indexPtr = *(DWORD **)keyPtr;
  	success = TlsFree(*indexPtr);
          if (!success) {
!             panic("TlsFree failed from TclpFinalizeThreadDataKey!");
          }
  	ckfree((char *)indexPtr);
  	*keyPtr = NULL;
--- 697,703 ----
  	indexPtr = *(DWORD **)keyPtr;
  	success = TlsFree(*indexPtr);
          if (!success) {
!             Tcl_Panic("TlsFree failed from TclpFinalizeThreadDataKey!");
          }
  	ckfree((char *)indexPtr);
  	*keyPtr = NULL;
***************
*** 1017,1023 ****
  
      lockPtr = malloc(sizeof(struct lock));
      if (lockPtr == NULL) {
! 	panic("could not allocate lock");
      }
      lockPtr->tlock = (Tcl_Mutex) &lockPtr->wlock;
      InitializeCriticalSection(&lockPtr->wlock);
--- 1017,1023 ----
  
      lockPtr = malloc(sizeof(struct lock));
      if (lockPtr == NULL) {
! 	Tcl_Panic("could not allocate lock");
      }
      lockPtr->tlock = (Tcl_Mutex) &lockPtr->wlock;
      InitializeCriticalSection(&lockPtr->wlock);
***************
*** 1039,1051 ****
      	key = TlsAlloc();
  	once = 1;
  	if (key == TLS_OUT_OF_INDEXES) {
! 	    panic("could not allocate thread local storage");
  	}
      }
  
      result = TlsGetValue(key);
      if ((result == NULL) && (GetLastError() != NO_ERROR)) {
!         panic("TlsGetValue failed from TclpGetAllocCache!");
      }
      return result;
  }
--- 1039,1051 ----
      	key = TlsAlloc();
  	once = 1;
  	if (key == TLS_OUT_OF_INDEXES) {
! 	    Tcl_Panic("could not allocate thread local storage");
  	}
      }
  
      result = TlsGetValue(key);
      if ((result == NULL) && (GetLastError() != NO_ERROR)) {
!         Tcl_Panic("TlsGetValue failed from TclpGetAllocCache!");
      }
      return result;
  }
***************
*** 1056,1062 ****
      BOOL success;
      success = TlsSetValue(key, ptr);
      if (!success) {
!         panic("TlsSetValue failed from TclpSetAllocCache!");
      }
  }
  
--- 1056,1062 ----
      BOOL success;
      success = TlsSetValue(key, ptr);
      if (!success) {
!         Tcl_Panic("TlsSetValue failed from TclpSetAllocCache!");
      }
  }
  
***************
*** 1070,1081 ****
      if (ptr != NULL) {
  	success = TlsSetValue(key, NULL);
          if (!success) {
!             panic("TlsSetValue failed from TclWinFreeAllocCache!");
          }
  	TclFreeAllocCache(ptr);
      } else {
        if (GetLastError() != NO_ERROR) {
!           panic("TlsGetValue failed from TclWinFreeAllocCache!");
        }
      }
  }
--- 1070,1081 ----
      if (ptr != NULL) {
  	success = TlsSetValue(key, NULL);
          if (!success) {
!             Tcl_Panic("TlsSetValue failed from TclWinFreeAllocCache!");
          }
  	TclFreeAllocCache(ptr);
      } else {
        if (GetLastError() != NO_ERROR) {
!           Tcl_Panic("TlsGetValue failed from TclWinFreeAllocCache!");
        }
      }
  }

