Index: /trunk/ccl/compiler/nxenv.lisp
===================================================================
--- /trunk/ccl/compiler/nxenv.lisp	(revision 5498)
+++ /trunk/ccl/compiler/nxenv.lisp	(revision 5499)
@@ -233,5 +233,5 @@
      (%immediate-inc-ptr . #.(logior operator-returns-address-mask operator-single-valued-mask))
      (2d-simple-aref . 0)
-     (2d-simple-aset . 0)
+     (general-aset2 . #.(logior operator-acode-subforms-mask operator-single-valued-mask))
      (%new-ptr . 0)
      (%schar . #.(logior operator-single-valued-mask operator-acode-subforms-mask operator-side-effect-free-mask))
@@ -264,5 +264,5 @@
      (memq . #.(logior operator-assignment-free-mask operator-acode-subforms-mask operator-side-effect-free-mask))
      (assq . #.(logior operator-assignment-free-mask operator-acode-subforms-mask operator-side-effect-free-mask))
-     (aset2 . #.(logior operator-acode-subforms-mask operator-single-valued-mask))
+     (simple-typed-aset2 . #.(logior operator-acode-subforms-mask operator-single-valued-mask))
      (consp . #.(logior operator-cc-invertable-mask operator-assignment-free-mask operator-acode-subforms-mask operator-side-effect-free-mask operator-boolean-mask))
      (aset1 . #.(logior operator-acode-subforms-mask))