diff --git a/eval.c b/eval.c
index ff86951e..25e36a86 100644
--- a/eval.c
+++ b/eval.c
@@ -101,8 +101,8 @@ static sexp sexp_env_undefine (sexp ctx, sexp env, sexp key) {
   return SEXP_FALSE;
 }
 
-static sexp sexp_env_cell_define (sexp ctx, sexp env, sexp key,
-                                  sexp value, sexp *varenv) {
+sexp sexp_env_cell_define (sexp ctx, sexp env, sexp key,
+                           sexp value, sexp *varenv) {
   sexp_gc_var2(cell, ls);
   while (sexp_env_lambda(env) || sexp_env_syntactic_p(env))
     env = sexp_env_parent(env);
diff --git a/include/chibi/eval.h b/include/chibi/eval.h
index 59345d35..f6e04631 100644
--- a/include/chibi/eval.h
+++ b/include/chibi/eval.h
@@ -86,6 +86,7 @@ SEXP_API sexp sexp_load_op (sexp context, sexp self, sexp_sint_t n, sexp expr, s
 SEXP_API sexp sexp_exception_type_op (sexp ctx, sexp self, sexp_sint_t n, sexp exn);
 SEXP_API sexp sexp_make_env_op (sexp context, sexp self, sexp_sint_t n);
 SEXP_API sexp sexp_make_null_env_op (sexp context, sexp self, sexp_sint_t n, sexp version);
+SEXP_API sexp sexp_env_cell_define (sexp ctx, sexp env, sexp name, sexp value, sexp* varenv);
 SEXP_API sexp sexp_make_primitive_env (sexp context, sexp version);
 SEXP_API sexp sexp_make_standard_env_op (sexp context, sexp self, sexp_sint_t n, sexp version);
 SEXP_API void sexp_set_parameter (sexp ctx, sexp env, sexp name, sexp value);