Fix thinko in recent change.

diff --git a/src/runtime/chrset.scm b/src/runtime/chrset.scm
index bea5185a7a742389cd873a7664d15d60b775c62c..923e388e937d67d971ea62c27bf082d0c9dd5b07 100644 (file)
--- a/src/runtime/chrset.scm
+++ b/src/runtime/chrset.scm
@@ -440,9 +440,10 @@ USA.
        (loop (cadr signal)
              (cddr signal)
              (rcons start (car signal) inverse))
-       (if (fix:< start #x110000)
-           (scons start #x110000 (reverse! inverse))
-           (reverse! inverse))))
+       (reverse!
+        (if (fix:< start #x110000)
+            (rcons start #x110000 inverse)
+            inverse))))
 
   (if (pair? signal)
       (if (fix:< 0 (car signal))