From 4f62d764cb237d68432043db2141fea9f1ab698c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 30 May 2010 16:43:57 -0700
Subject: [PATCH] Fix thinko.

---
 src/runtime/chrset.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index 5ae794a3d..a409203c1 100644
--- 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)
-- 
2.25.1