$OpenBSD: patch-tcl_tcl_util_c,v 1.2 2004/01/14 19:50:15 sturm Exp $
--- tcl/tcl_util.c.orig	2003-04-23 20:54:40.000000000 +0200
+++ tcl/tcl_util.c	2004-01-10 11:21:10.000000000 +0100
@@ -59,7 +59,7 @@ bdb_RandCommand(interp, objc, objv)
 	 * in the 'berkdb' command.
 	 */
 	if (Tcl_GetIndexFromObj(interp,
-	    objv[1], rcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
+	    objv[1], (CONST84 char **)rcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
 		return (IS_HELP(objv[1]));
 
 	res = NULL;
@@ -294,7 +294,7 @@ mutex_Cmd(clientData, interp, objc, objv
 	 * defined above.
 	 */
 	if (Tcl_GetIndexFromObj(interp,
-	    objv[1], mxcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
+	    objv[1], (CONST84 char **)mxcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
 		return (IS_HELP(objv[1]));
 
 	res = NULL;
