Fix fencepost in ASCII-RANGE->CHAR-SET.

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index e8f0645ed76eb912e879bade003438b1df755f70..4c6b34bcd79297df4c8a1a1e44420f5d1b563aeb 100644 (file)
--- a/src/runtime/chrset.scm
+++ b/src/runtime/chrset.scm
@@ -581,7 +581,7 @@ USA.
       (error:bad-range-argument start 'ASCII-RANGE->CHAR-SET))
   (if (not (fix:<= end #x100))
       (error:bad-range-argument end 'ASCII-RANGE->CHAR-SET))
-  (%scalar-values->char-set (list (cons start (fix:- end 1)))))
+  (%scalar-values->char-set (list (cons start end))))
 
 (define (alphabet->char-set char-set)
   char-set)