1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclConfig.c b/generic/tclConfig.c
index 28549ed..99a04f6 100644
--- a/generic/tclConfig.c
+++ b/generic/tclConfig.c
@@ -224,8 +224,8 @@ QueryConfigObjCmd(
 	Tcl_WrongNumArgs(interp, 1, objv, "subcommand ?argument?");
 	return TCL_ERROR;
     }
-    if (Tcl_GetIndexFromObj(interp, objv[1], subcmdStrings, "subcommand", 0,
-	    &index) != TCL_OK) {
+    if (Tcl_GetIndexFromObjStruct(interp, objv[1], subcmdStrings,
+	    sizeof(char *), "subcommand", 0, &index) != TCL_OK) {
 	return TCL_ERROR;
     }