1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclClockFmt.c b/generic/tclClockFmt.c
index 5d3dcaf..a10d05d 100644
--- a/generic/tclClockFmt.c
+++ b/generic/tclClockFmt.c
@@ -609,12 +609,12 @@ FindWordEnd(
 	return ++p;
     }
     /* multi-char word */
-    while (*p++ == *x++) {
-	if (x >= tok->tokWord.end || p >= end) {
+    do 
+	if (*p++ != *x++) {
 	    /* no match -> error */
 	    return NULL;
 	}
-    };
+    while (x <= tok->tokWord.end && p < end);
     return p;
 }