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