1 files changed, 1 insertions, 1 deletions
diff --git a/lib.c b/lib.c
index 9e220f10..464cab79 100644
--- a/lib.c
+++ b/lib.c
@@ -6654,7 +6654,7 @@ wchar_t c_chr(val chr)
 {
   if (!is_chr(chr))
     type_mismatch(lit("~s is not a character"), chr, nao);
-  return convert(wchar_t, coerce(cnum, chr) >> TAG_SHIFT);
+  return convert(wchar_t, c_n(chr));
 }
 
 val chr_isalnum(val ch)