1 files changed, 1 insertions, 1 deletions

diff --git a/src/ccl.c b/src/ccl.c
index d3879abae6b..52a4ff3c388 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -2274,7 +2274,7 @@ Return index number of the registered map.")
       if (EQ (symbol, XCAR (slot)))
         {
           index = make_number (i);
-          XCDR (slot) = map;
+          XSETCDR (slot, map);
           Fput (symbol, Qcode_conversion_map, map);
           Fput (symbol, Qcode_conversion_map_id, index);
           return index;