--- tcl/tcl_mp.c.orig	Wed May 17 21:40:01 2000
+++ tcl/tcl_mp.c	Thu Oct 28 12:28:52 2010
@@ -187,7 +187,7 @@ tcl_Mp(interp, objc, objv, envp, envip)
 	memset(newname, 0, MSG_SIZE);
 	while (i < objc) {
 		if (Tcl_GetIndexFromObj(interp, objv[i],
-		    mpopts, "option", TCL_EXACT, &optindex) != TCL_OK) {
+		    (CONST84 char **)mpopts, "option", TCL_EXACT, &optindex) != TCL_OK) {
 			/*
 			 * Reset the result so we don't get an errant
 			 * error message if there is another error.
@@ -434,7 +434,7 @@ mp_Cmd(clientData, interp, objc, objv)
 	 * defined above.
 	 */
 	if (Tcl_GetIndexFromObj(interp,
-	    objv[1], mpcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
+	    objv[1], (CONST84 char **)mpcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
 		return (IS_HELP(objv[1]));
 
 	res = NULL;
@@ -506,7 +506,7 @@ tcl_MpGet(interp, objc, objv, mp, mpip)
 	flag = 0;
 	while (i < objc) {
 		if (Tcl_GetIndexFromObj(interp, objv[i],
-		    mpget, "option", TCL_EXACT, &optindex) != TCL_OK) {
+		    (CONST84 char **)mpget, "option", TCL_EXACT, &optindex) != TCL_OK) {
 			/*
 			 * Reset the result so we don't get an errant
 			 * error message if there is another error.
@@ -640,7 +640,7 @@ pg_Cmd(clientData, interp, objc, objv)
 	 * defined above.
 	 */
 	if (Tcl_GetIndexFromObj(interp,
-	    objv[1], pgcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
+	    objv[1], (CONST84 char **)pgcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
 		return (IS_HELP(objv[1]));
 
 	res = NULL;
@@ -697,7 +697,7 @@ tcl_Pg(interp, objc, objv, page, mp, pgip, putop)
 	flag = 0;
 	while (i < objc) {
 		if (Tcl_GetIndexFromObj(interp, objv[i],
-		    pgopt, "option", TCL_EXACT, &optindex) != TCL_OK)
+		    (CONST84 char **)pgopt, "option", TCL_EXACT, &optindex) != TCL_OK)
 			return (IS_HELP(objv[i]));
 		i++;
 		switch ((enum pgopt)optindex) {