Index: /trunk/ccl/compiler/nxenv.lisp
===================================================================
--- /trunk/ccl/compiler/nxenv.lisp	(revision 5445)
+++ /trunk/ccl/compiler/nxenv.lisp	(revision 5446)
@@ -185,5 +185,5 @@
      (%rplacd . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
      (cons . #.(logior operator-assignment-free-mask operator-single-valued-mask operator-acode-subforms-mask))
-     (aref2 . #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask))
+     (simple-typed-aref2 . #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask))
      (setq-free . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
      (prog1 . 0)
@@ -407,5 +407,6 @@
      (require-u32 . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
      (require-s64 . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
-     (require-u64 . #.(logior operator-single-valued-mask operator-acode-subforms-mask)))))
+     (require-u64 . #.(logior operator-single-valued-mask operator-acode-subforms-mask))
+     (general-aref2 .  #.(logior operator-acode-subforms-mask operator-assignment-free-mask operator-single-valued-mask)))))
 
 (defmacro %nx1-operator (sym)