Index: /branches/ia32/lib/nfcomp.lisp
===================================================================
--- /branches/ia32/lib/nfcomp.lisp	(revision 8071)
+++ /branches/ia32/lib/nfcomp.lisp	(revision 8072)
@@ -1432,6 +1432,6 @@
       (assert (= other-words (1- (uvsize f))))
       (fasl-out-opcode $fasl-clfun f)
+      (fasl-out-count function-size)
       (fasl-out-count imm-words)
-      (fasl-out-count function-size)
       (fasl-out-ivect code 0 imm-bytes)
       (do ((i 1 (1+ i))