--- tclBinary.c-orig	2006-07-28 15:46:21.640625000 +0100
+++ tclBinary.c	2006-08-04 09:05:43.781250000 +0100
@@ -262,7 +262,7 @@
     ByteArray *byteArrayPtr;
 
     if (Tcl_IsShared(objPtr)) {
-	Tcl_Panic("Tcl_SetByteArrayObj called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_SetByteArrayObj");
     }
     TclFreeIntRep(objPtr);
     Tcl_InvalidateStringRep(objPtr);
@@ -341,7 +341,7 @@
     ByteArray *byteArrayPtr, *newByteArrayPtr;
 
     if (Tcl_IsShared(objPtr)) {
-	Tcl_Panic("Tcl_SetObjLength called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_SetObjLength");
     }
     if (objPtr->typePtr != &tclByteArrayType) {
 	SetByteArrayFromAny(NULL, objPtr);
--- tclDictObj.c-orig	2006-07-28 15:46:30.843750000 +0100
+++ tclDictObj.c	2006-08-04 09:05:42.015625000 +0100
@@ -732,7 +732,7 @@
     int isNew;
 
     if (Tcl_IsShared(dictPtr)) {
-	Tcl_Panic("Tcl_DictObjPut called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_DictObjPut");
     }
 
     if (dictPtr->typePtr != &tclDictType) {
@@ -833,7 +833,7 @@
     Tcl_HashEntry *hPtr;
 
     if (Tcl_IsShared(dictPtr)) {
-	Tcl_Panic("Tcl_DictObjRemove called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_DictObjRemove");
     }
 
     if (dictPtr->typePtr != &tclDictType) {
@@ -1107,7 +1107,7 @@
     int isNew;
 
     if (Tcl_IsShared(dictPtr)) {
-	Tcl_Panic("Tcl_DictObjPutKeyList called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_DictObjPutKeyList");
     }
     if (keyc < 1) {
 	Tcl_Panic("Tcl_DictObjPutKeyList called with empty key list");
@@ -1164,7 +1164,7 @@
     Tcl_HashEntry *hPtr;
 
     if (Tcl_IsShared(dictPtr)) {
-	Tcl_Panic("Tcl_DictObjRemoveKeyList called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_DictObjRemoveKeyList");
     }
     if (keyc < 1) {
 	Tcl_Panic("Tcl_DictObjRemoveKeyList called with empty key list");
--- tclExecute.c-orig	2006-07-22 07:01:52.000000000 +0100
+++ tclExecute.c	2006-08-07 09:39:30.500000000 +0100
@@ -1040,7 +1040,7 @@
     mp_int value, incr;
 
     if (Tcl_IsShared(valuePtr)) {
-	Tcl_Panic("shared object passed to TclIncrObj");
+	Tcl_Panic("%s called with shared object", "TclIncrObj");
     }
 
     if (GetNumberFromObj(NULL, valuePtr, &ptr1, &type1) != TCL_OK) {
--- tclListObj.c-orig	2006-07-28 15:46:40.968750000 +0100
+++ tclListObj.c	2006-08-04 09:05:57.203125000 +0100
@@ -310,7 +310,7 @@
     List *listRepPtr;
 
     if (Tcl_IsShared(objPtr)) {
-	Tcl_Panic("Tcl_SetListObj called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_SetListObj");
     }
 
     /*
@@ -441,7 +441,7 @@
     Tcl_Obj **objv;
 
     if (Tcl_IsShared(listPtr)) {
-	Tcl_Panic("Tcl_ListObjAppendList called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_ListObjAppendList");
     }
 
     result = Tcl_ListObjLength(interp, listPtr, &listLen);
@@ -500,7 +500,7 @@
     int numElems, numRequired, newMax, newSize, i;
 
     if (Tcl_IsShared(listPtr)) {
-	Tcl_Panic("Tcl_ListObjAppendElement called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_ListObjAppendElement");
     }
     if (listPtr->typePtr != &tclListType) {
 	int result, length;
@@ -744,7 +744,7 @@
     int isShared;
 
     if (Tcl_IsShared(listPtr)) {
-	Tcl_Panic("Tcl_ListObjReplace called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_ListObjReplace");
     }
     if (listPtr->typePtr != &tclListType) {
 	int length;
@@ -1320,7 +1320,7 @@
      */
 
     if (Tcl_IsShared(listPtr)) {
-	Tcl_Panic("Tcl_ListObjSetElement called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_ListObjSetElement");
     }
     if (listPtr->typePtr != &tclListType) {
 	int length;
--- tclObj.c-orig	2006-07-28 15:46:48.484375000 +0100
+++ tclObj.c	2006-08-07 09:43:12.343750000 +0100
@@ -1240,7 +1240,7 @@
     register int boolValue)	/* Boolean used to set object's value. */
 {
     if (Tcl_IsShared(objPtr)) {
-	Tcl_Panic("Tcl_SetBooleanObj called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_SetBooleanObj");
     }
 
     TclSetBooleanObj(objPtr, boolValue);
@@ -1624,7 +1624,7 @@
     register double dblValue)	/* Double used to set the object's value. */
 {
     if (Tcl_IsShared(objPtr)) {
-	Tcl_Panic("Tcl_SetDoubleObj called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_SetDoubleObj");
     }
 
     TclSetDoubleObj(objPtr, dblValue);
@@ -1830,7 +1830,7 @@
     register int intValue)	/* Integer used to set object's value. */
 {
     if (Tcl_IsShared(objPtr)) {
-	Tcl_Panic("Tcl_SetIntObj called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_SetIntObj");
     }
 
     TclSetIntObj(objPtr, intValue);
@@ -2092,7 +2092,7 @@
 				 * object's value. */
 {
     if (Tcl_IsShared(objPtr)) {
-	Tcl_Panic("Tcl_SetLongObj called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_SetLongObj");
     }
 
     TclSetLongObj(objPtr, longValue);
@@ -2394,7 +2394,7 @@
 				 * object's value. */
 {
     if (Tcl_IsShared(objPtr)) {
-	Tcl_Panic("Tcl_SetWideIntObj called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_SetWideIntObj");
     }
 
     if ((wideValue >= (Tcl_WideInt) LONG_MIN)
@@ -2869,7 +2869,7 @@
     mp_int *bignumValue)	/* Value to store */
 {
     if (Tcl_IsShared(objPtr)) {
-	Tcl_Panic("Tcl_SetBignumObj called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_SetBignumObj");
     }
     if ((size_t)(bignumValue->used)
 	    <= (CHAR_BIT * sizeof(long) + DIGIT_BIT - 1) / DIGIT_BIT) {
--- tclStringObj.c-orig	2006-07-28 15:47:00.546875000 +0100
+++ tclStringObj.c	2006-08-04 09:01:53.218750000 +0100
@@ -698,7 +698,7 @@
      */
 
     if (Tcl_IsShared(objPtr)) {
-	Tcl_Panic("Tcl_SetStringObj called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_SetStringObj");
     }
 
     /*
@@ -749,7 +749,7 @@
     String *stringPtr;
 
     if (Tcl_IsShared(objPtr)) {
-	Tcl_Panic("Tcl_SetObjLength called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_SetObjLength");
     }
     SetStringFromAny(NULL, objPtr);
 
@@ -865,7 +865,7 @@
     String *stringPtr;
 
     if (Tcl_IsShared(objPtr)) {
-	Tcl_Panic("Tcl_AttemptSetObjLength called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_AttemptSetObjLength");
     }
     SetStringFromAny(NULL, objPtr);
 
@@ -1054,7 +1054,7 @@
     int toCopy = 0;
 
     if (Tcl_IsShared(objPtr)) {
-	Tcl_Panic("TclAppendLimitedToObj called with shared object");
+	Tcl_Panic("%s called with shared object", "TclAppendLimitedToObj");
     }
 
     SetStringFromAny(NULL, objPtr);
@@ -1156,7 +1156,7 @@
     String *stringPtr;
 
     if (Tcl_IsShared(objPtr)) {
-	Tcl_Panic("Tcl_AppendUnicodeToObj called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_AppendUnicodeToObj");
     }
 
     if (length == 0) {
@@ -1533,7 +1533,7 @@
     int nargs, i;
 
     if (Tcl_IsShared(objPtr)) {
-	Tcl_Panic("Tcl_AppendStringsToObj called with shared object");
+	Tcl_Panic("%s called with shared object", "Tcl_AppendStringsToObj");
     }
 
     SetStringFromAny(NULL, objPtr);
@@ -1715,7 +1715,7 @@
     };
 
     if (Tcl_IsShared(appendObj)) {
-	Tcl_Panic("TclAppendFormattedObjs called with shared object");
+	Tcl_Panic("%s called with shared object", "TclAppendFormattedObjs");
     }
     Tcl_GetStringFromObj(appendObj, &originalLength);
 
