Fix thinko.

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index 5ae794a3da10a50d9bae041e76bb383dcba313ba..a409203c167e9192c667d433f80bbfa0b3112719 100644 (file)
--- a/src/runtime/chrset.scm
+++ b/src/runtime/chrset.scm
@@ -326,7 +326,8 @@ USA.
     (do ((i 0 (fix:+ i 1)))
        ((fix:= i %low-length))
       (vector-8b-set! low i
-                     (fix:not (vector-8b-ref low1 i))))
+                     (fix:and (fix:not (vector-8b-ref low1 i))
+                              #xff)))
     low))
 
 (define (%high-invert high1)