Fix [5fca83d78c]: [encoding system] is wrong in an ISO-8859-1 locale

1 files changed, 5 insertions, 1 deletions

diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c
index 63167c6..9f19075 100644
--- a/unix/tclUnixInit.c
+++ b/unix/tclUnixInit.c
@@ -597,17 +597,21 @@ SearchKnownEncodings(
     int left = 0;
     int right = sizeof(localeTable)/sizeof(LocaleTable);
 
+    /* Here, search for i in the interval left <= i < right. */
     while (left < right) {
 	int test = (left + right)/2;
 	int code = strcmp(localeTable[test].lang, encoding);
 
 	if (code == 0) {
+	    /* Found it at i == test.  */
 	    return localeTable[test].encoding;
 	}
 	if (code < 0) {
+	    /* Restrict the search to the interval test < i < right. */
 	    left = test+1;
 	} else {
-	    right = test-1;
+	    /* Restrict the search to the interval left <= i < test. */
+	    right = test;
 	}
     }
     return NULL;