1 files changed, 2 insertions, 2 deletions
diff --git a/win/tclWinTest.c b/win/tclWinTest.c
index e493fbf..0148c57 100644
--- a/win/tclWinTest.c
+++ b/win/tclWinTest.c
@@ -366,8 +366,8 @@ TestExceptionCmd(
 	Tcl_WrongNumArgs(interp, 0, objv, "<type-of-exception>");
 	return TCL_ERROR;
     }
-    if (Tcl_GetIndexFromObj(interp, objv[1], cmds, "command", 0,
-	    &cmd) != TCL_OK) {
+    if (Tcl_GetIndexFromObjStruct(interp, objv[1], cmds,
+	    sizeof(char *), "command", 0, &cmd) != TCL_OK) {
 	return TCL_ERROR;
     }