Index: /trunk/ccl/compiler/nxenv.lisp
===================================================================
--- /trunk/ccl/compiler/nxenv.lisp	(revision 5337)
+++ /trunk/ccl/compiler/nxenv.lisp	(revision 5338)
@@ -205,5 +205,5 @@
      (sub2 . #.(logior operator-assignment-free-mask operator-single-valued-mask operator-acode-subforms-mask operator-side-effect-free-mask))
      (numeric-comparison . #.(logior operator-assignment-free-mask operator-single-valued-mask operator-cc-invertable-mask))
-     (num= . #.(logior operator-assignment-free-mask operator-acode-subforms-mask operator-single-valued-mask operator-cc-invertable-mask))
+     (numcmp . #.(logior operator-assignment-free-mask operator-acode-subforms-mask operator-single-valued-mask operator-cc-invertable-mask))
      (struct-ref . 0)
      (struct-set . 0)