diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index a0d2b2155..5ecd9b24b 100755
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -262,7 +262,7 @@ void ~A(cl_object cblock)
          * circular chain. This disables the garbage collection of
          * the library until _ALL_ functions in all modules are unlinked.
          */
-        cl_object current, next = Cblock;
+        cl_object current = Cnil, next = Cblock;
 ~:{
         current = ecl_make_codeblock();
         current->cblock.next = next;
@@ -313,6 +313,7 @@ extern int
         ecl_init_module(OBJNULL, ~A);
         ~A
         } ECL_CATCH_ALL_END;
+        return 0;
 }
 ")