Index: generic/xotclError.c
===================================================================
diff -u -r66c24900b6a07a0cac4a28251c492bd3a05ec8e7 -r2da271ea64afbde77c0b4608164d5f666edd1a69
--- generic/xotclError.c	(.../xotclError.c)	(revision 66c24900b6a07a0cac4a28251c492bd3a05ec8e7)
+++ generic/xotclError.c	(.../xotclError.c)	(revision 2da271ea64afbde77c0b4608164d5f666edd1a69)
@@ -42,7 +42,7 @@
 
 int
 XOTclErrInProc(Tcl_Interp *interp, Tcl_Obj *objName,
-               Tcl_Obj *clName, char *procName) {
+               Tcl_Obj *clName, CONST char *procName) {
   Tcl_DString errMsg;
   char *cName, *space;
   ALLOC_DSTRING(&errMsg, "\n    ");