Index: /trunk/source/compiler/nxenv.lisp
===================================================================
--- /trunk/source/compiler/nxenv.lisp	(revision 14330)
+++ /trunk/source/compiler/nxenv.lisp	(revision 14331)
@@ -98,5 +98,5 @@
      (%i- . #.(logior operator-single-valued-mask operator-assignment-free-mask operator-acode-subforms-mask operator-side-effect-free-mask))
      (cxxr . #.(logior operator-single-valued-mask operator-assignment-free-mask operator-acode-subforms-mask operator-side-effect-free-mask))
-     (%dfp-combine . 0)
+     (ash . #.(logior operator-single-valued-mask operator-assignment-free-mask operator-assignment-free-mask operator-acode-subforms-mask operator-side-effect-free-mask))
      (%ilsl . #.(logior operator-single-valued-mask operator-assignment-free-mask operator-assignment-free-mask operator-acode-subforms-mask operator-side-effect-free-mask))
      (%ilogand2 . #.(logior operator-single-valued-mask operator-assignment-free-mask operator-acode-subforms-mask operator-side-effect-free-mask))
@@ -113,5 +113,5 @@
      (%fixnum-ref-natural . #.operator-single-valued-mask)
      (%current-tcr . #.operator-single-valued-mask)
-     (%stack-trap . #.operator-single-valued-mask)
+     (%ilognot . #.(logior operator-single-valued-mask operator-assignment-free-mask operator-acode-subforms-mask operator-side-effect-free-mask operator-cc-invertable-mask))
      (multiple-value-prog1 . 0)
      (multiple-value-bind . 0)