1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 6923cd6..6408228 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -7184,8 +7184,10 @@ TestUtfNextCmd(
 	/* Run Tcl_UtfNext with many more possible bytes at src[end], all should give the same result */
 	result = TclUtfNext(buffer + 1);
 	if (first != result) {
-	    first = buffer;
-	    break;
+	    Tcl_SetObjResult(interp, Tcl_ObjPrintf(
+		    "Tcl_UtfNext is not supposed to read src[end]\n"
+		    "Different result when src[end] is %#x", UCHAR(p[-1])));
+	    return TCL_ERROR;
 	}
     }