diff --git a/src/cmp/cmppass2-top.lsp b/src/cmp/cmppass2-top.lsp
index 025da4177..a22a9f294 100644
--- a/src/cmp/cmppass2-top.lsp
+++ b/src/cmp/cmppass2-top.lsp
@@ -90,8 +90,11 @@
 
     (wt-nl "ECL_DEFINE_SETF_FUNCTIONS")
 
-    (loop for form in (nconc *make-forms* *top-level-forms*)
-       do (emit-toplevel-form form c-output-file))
+    (dolist (form *make-forms*)
+      (emit-toplevel-form form c-output-file))
+    (dolist (form *top-level-forms*)
+      (emit-toplevel-form form c-output-file))
+
     (wt-nl-close-many-braces 0)
     (setq top-output-string (get-output-stream-string *compiler-output1*)))