diff options
| -rw-r--r-- | generic/tclUtil.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 666757a..d4080ac 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -2128,7 +2128,7 @@ matchFail: * it first. */ pattern = pnext; - str = snext + TclUtfToUniChar(str, &sch); + str = snext + TclUtfToUniChar(snext, &sch); if (*str) goto matchLoop; } return 0; |