diff options
| -rw-r--r-- | generic/tclUtf.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c index 3741d70..550d528 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -660,7 +660,7 @@ Tcl_UtfNext( } next++; } - if (Invalid((unsigned char *)src)) { + if ((next == src + 1) || Invalid((unsigned char *)src)) { return src + 1; } return next; |