1 files changed, 6 insertions, 0 deletions
diff --git a/byterun/meta.c b/byterun/meta.c
index 4bb69b282..01d377dfd 100644
--- a/byterun/meta.c
+++ b/byterun/meta.c
@@ -22,6 +22,7 @@
 #include "misc.h"
 #include "mlvalues.h"
 #include "prims.h"
+#include "stacks.h"
 
 value get_global_data(unit)     /* ML */
      value unit;
@@ -63,3 +64,8 @@ value available_primitives()    /* ML */
 {
   return copy_string_array(names_of_cprim);
 }
+
+value get_current_environment() /* ML */
+{
+  return *extern_sp;
+}