Fix fencepost error.

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index 5ab46139c0e1abe812d04a49e3902df036929266..5ae794a3da10a50d9bae041e76bb383dcba313ba 100644 (file)
--- a/src/runtime/chrset.scm
+++ b/src/runtime/chrset.scm
@@ -258,7 +258,7 @@ USA.
       (let ((high (%char-set-high char-set)))
        (let loop ((lower 0) (upper (vector-length high)))
          (if (fix:< lower upper)
-             (let ((i (fix:quotient (fix:+ lower upper) 2)))
+             (let ((i (fix:* 2 (fix:quotient (fix:+ lower upper) 4))))
                (cond ((fix:< value (vector-ref high i))
                       (loop lower i))
                      ((fix:>= value (vector-ref high (fix:+ i 1)))