From 2c354a86e775219285742b14b444444a5d78b38e Mon Sep 17 00:00:00 2001
From: aspect <aspect+tclcore@abstracted-spleen.org>
Date: Mon, 22 May 2017 11:07:46 +0000
Subject: fix advancement of snext:  could not cook up a test for this, but the
 error is clear

---
 generic/tclUtil.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
cgit v0.12