(ccl_driver): Fix arg of CHARACTERP.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/ccl.c b/src/ccl.c
index b9dd47ff17c..55e7422511c 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -1253,7 +1253,7 @@ ccl_driver (ccl, source, destination, src_size, dst_size, charset_list)
                   {
                     Lisp_Object opl;
                     opl = HASH_VALUE (h, op);
-                    if (! CHARACTERP (XINT (opl)))
+                    if (! CHARACTERP (opl))
                       CCL_INVALID_CMD;
                     reg[RRR] = charset_unicode;
                     reg[rrr] = op;