$OpenBSD: patch-tcl_tcl_dbcursor_c,v 1.2 2004/01/14 19:50:15 sturm Exp $
--- tcl/tcl_dbcursor.c.orig	2003-05-17 17:15:45.000000000 +0200
+++ tcl/tcl_dbcursor.c	2004-01-10 11:21:09.000000000 +0100
@@ -89,7 +89,7 @@ dbc_Cmd(clientData, interp, objc, objv)
 	 * Get the command name index from the object based on the berkdbcmds
 	 * defined above.
 	 */
-	if (Tcl_GetIndexFromObj(interp, objv[1], dbccmds, "command",
+	if (Tcl_GetIndexFromObj(interp, objv[1], (CONST84 char **)dbccmds, "command",
 	    TCL_EXACT, &cmdindex) != TCL_OK)
 		return (IS_HELP(objv[1]));
 	switch ((enum dbccmds)cmdindex) {
@@ -202,7 +202,7 @@ tcl_DbcPut(interp, objc, objv, dbc)
 	 */
 	i = 2;
 	while (i < (objc - 1)) {
-		if (Tcl_GetIndexFromObj(interp, objv[i], dbcutopts, "option",
+		if (Tcl_GetIndexFromObj(interp, objv[i], (CONST84 char **)dbcutopts, "option",
 		    TCL_EXACT, &optindex) != TCL_OK) {
 			/*
 			 * Reset the result so we don't get
@@ -459,7 +459,7 @@ tcl_DbcGet(interp, objc, objv, dbc, ispg
 	 */
 	i = 2;
 	while (i < objc) {
-		if (Tcl_GetIndexFromObj(interp, objv[i], dbcgetopts,
+		if (Tcl_GetIndexFromObj(interp, objv[i], (CONST84 char **)dbcgetopts,
 		    "option", TCL_EXACT, &optindex) != TCL_OK) {
 			/*
 			 * Reset the result so we don't get
@@ -852,7 +852,7 @@ tcl_DbcDup(interp, objc, objv, dbc)
 	 */
 	i = 2;
 	while (i < objc) {
-		if (Tcl_GetIndexFromObj(interp, objv[i], dbcdupopts,
+		if (Tcl_GetIndexFromObj(interp, objv[i], (CONST84 char **)dbcdupopts,
 		    "option", TCL_EXACT, &optindex) != TCL_OK) {
 			/*
 			 * Reset the result so we don't get
