$OpenBSD: patch-tcl_tcl_mp_c,v 1.3 2007/10/26 14:06:02 steven Exp $
--- tcl/tcl_mp.c.orig	Fri Jun 22 19:41:45 2007
+++ tcl/tcl_mp.c	Sat Sep 15 12:39:57 2007
@@ -183,7 +183,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.
@@ -488,7 +488,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;
@@ -623,7 +623,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.
@@ -773,7 +773,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;
@@ -828,7 +828,7 @@ tcl_Pg(interp, objc, objv, page, mp, pgip)
 	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) {
