Index: /trunk/source/compiler/nx0.lisp
===================================================================
--- /trunk/source/compiler/nx0.lisp	(revision 14988)
+++ /trunk/source/compiler/nx0.lisp	(revision 14989)
@@ -1360,6 +1360,6 @@
                                 (%ilsl $vbitpuntable 1)
                                 varbits))
-          (setf (var-refs var) 0
-                (var-refs boundto) (+ (var-refs var) (var-refs boundto)))
+          (setf (var-refs boundto) (+ (var-refs var) (var-refs boundto))
+                (var-refs var) 0)
           (nx-set-var-root-nrefs boundto
                                  (+ (1- boundtocount) varcount)))))))