diff --git a/eval.c b/eval.c
index 9e64e1e5..3b8a0e36 100644
--- a/eval.c
+++ b/eval.c
@@ -234,8 +234,8 @@ static sexp finalize_bytecode (sexp ctx) {
   return bc;
 }
 
-static sexp sexp_make_procedure (sexp ctx, sexp flags, sexp num_args,
-                                 sexp bc, sexp vars) {
+sexp sexp_make_procedure (sexp ctx, sexp flags, sexp num_args,
+                          sexp bc, sexp vars) {
   sexp proc = sexp_alloc_type(ctx, procedure, SEXP_PROCEDURE);
   sexp_procedure_flags(proc) = (char) (sexp_uint_t) flags;
   sexp_procedure_num_args(proc) = (unsigned short) (sexp_uint_t) num_args;
diff --git a/include/chibi/eval.h b/include/chibi/eval.h
index 8f1e11a3..ba55e691 100644
--- a/include/chibi/eval.h
+++ b/include/chibi/eval.h
@@ -152,6 +152,7 @@ SEXP_API sexp sexp_env_ref (sexp env, sexp sym, sexp dflt);
 SEXP_API sexp sexp_env_global_ref (sexp env, sexp sym, sexp dflt);
 SEXP_API void sexp_warn_undefs (sexp ctx, sexp from, sexp to, sexp out);
 SEXP_API sexp sexp_make_opcode (sexp, sexp, sexp, sexp, sexp, sexp, sexp, sexp, sexp, sexp, sexp, sexp_proc1);
+SEXP_API sexp sexp_make_procedure (sexp ctx, sexp flags, sexp num_args, sexp bc, sexp vars);
 SEXP_API sexp sexp_make_foreign (sexp ctx, const char *name, int num_args, int flags, sexp_proc1 f, sexp data);
 SEXP_API sexp sexp_define_foreign_aux (sexp ctx, sexp env, const char *name, int num_args, int flags, sexp_proc1 f, sexp data);