diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index d3e704a6a..3e9567826 100644
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -325,11 +325,13 @@ static cl_object VV[VM];
 	 (setf output-name (compile-file-pathname output-name :type :fasl)))
        (unless init-name
 	 (setf init-name (init-function-name "CODE" nil)))
-       (format c-file +lisp-program-init+ init-name prologue-code shared-data-file 
-               (mapcar #'(lambda (sm)
-                        (format nil "((ecl_init_function_t) ecl_library_symbol(Cblock, \"~A\"))" sm))
-                    submodules)
-               epilogue-code)
+       #-(or :win32 :mingw32)
+       (setf submodules
+	     (mapcar #'(lambda (sm)
+			 (format nil "((ecl_init_function_t) ecl_library_symbol(Cblock, \"~A\"))" sm))
+		     submodules))
+       (format c-file +lisp-program-init+ init-name prologue-code shared-data-file
+	       submodules epilogue-code)
        (close c-file)
        (compiler-cc c-name o-name)
        (apply #'bundle-cc output-name o-name ld-flags)))