Index: /trunk/source/compiler/nx0.lisp
===================================================================
--- /trunk/source/compiler/nx0.lisp	(revision 14979)
+++ /trunk/source/compiler/nx0.lisp	(revision 14980)
@@ -450,5 +450,6 @@
   (list (%nx1-operator add2)
         (%nx1-operator sub2)
-        (%nx1-operator mul2)))
+        (%nx1-operator mul2)
+        (%nx1-operator div2)))
 
 
@@ -484,5 +485,6 @@
                                 (if (eq op (%nx1-operator lexical-reference))
                                   (locally (declare (special *nx-in-frontend*))
-                                    (unless *nx-in-frontend*
+                                    (if *nx-in-frontend*
+                                      (setq assert nil)
                                       (let* ((var (cadr form))
                                              (bits (nx-var-bits var))
@@ -1044,6 +1046,6 @@
 ;;; can be punted.
 (defun nx1-note-var-binding (var initform)
-  (let* ((init (nx-untyped-form initform))
-         (inittype (nx-acode-form-type initform *nx-lexical-environment*))
+  (let* ((inittype (nx-acode-form-type initform *nx-lexical-environment*))
+         (init (nx-untyped-form initform))
          (bits (nx-var-bits var)))
     (when (%ilogbitp $vbitspecial bits) (nx-record-xref-info :binds (var-name var)))