1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index 142d86d6fde..429e740ec10 100644
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -489,7 +489,8 @@
           (setq left 'r7)))
 
     ;; Now EXPR has the form (LEFT OP RIGHT).
-    (if (eq rrr left)
+    (if (and (eq rrr left)
+             (< op (length ccl-assign-arith-table)))
         ;; Compile this SET statement as `(RRR OP= RIGHT)'.
         (if (integerp right)
             (progn