Don't restrict CHAR-SET-MEMBERS; it gets used on the inversion of

8-bit char sets, which aren't 8-bit.

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index a409203c167e9192c667d433f80bbfa0b3112719..8ad7ca20b32299da6dc51cc84b97cf4086d03618 100644 (file)
--- a/src/runtime/chrset.scm
+++ b/src/runtime/chrset.scm
@@ -544,7 +544,7 @@ USA.
   (list->string (map integer->char (char-set-members char-set))))
 
 (define (char-set-members char-set)
-  (guarantee-8-bit-char-set char-set 'CHAR-SET-MEMBERS)
+  (guarantee-char-set char-set 'CHAR-SET-MEMBERS)
   (let ((low (%char-set-low char-set)))
     (let loop ((code 0))
       (if (fix:< code #x100)