diff options
-rw-r--r-- | generic/tkZinc.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tkZinc.c b/generic/tkZinc.c index d4aac38..0361549 100644 --- a/generic/tkZinc.c +++ b/generic/tkZinc.c @@ -3304,6 +3304,7 @@ FindItems(ZnWInfo *wi, if (argc > first+6) { result = Tcl_GetBooleanFromObj(wi->interp, args[first+6], &ps.recursive); if (result != TCL_OK) { + Tcl_ResetResult(wi->interp); str = Tcl_GetString(args[first+6]); if (strcmp(str, "override") != 0) { Tcl_AppendResult(wi->interp, |