diff --git a/libguile/modules.c b/libguile/modules.c
index 45c9c83bf..cae2d1747 100644
--- a/libguile/modules.c
+++ b/libguile/modules.c
@@ -144,6 +144,15 @@ scm_module_lookup_closure (SCM module)
   return SCM_MODULE_EVAL_CLOSURE (module);
 }
 
+SCM
+scm_current_module_lookup_closure ()
+{
+  if (scm_module_system_booted_p)
+    return scm_module_lookup_closure (scm_current_module ());
+  else
+    return SCM_BOOL_F;
+}
+
 static SCM resolve_module;
 
 SCM
diff --git a/libguile/modules.h b/libguile/modules.h
index 57db947ba..95906261f 100644
--- a/libguile/modules.h
+++ b/libguile/modules.h
@@ -84,6 +84,7 @@ extern SCM scm_module_tag;
 
 extern SCM scm_the_root_module (void);
 extern SCM scm_current_module (void);
+extern SCM scm_current_module_lookup_closure (void);
 extern SCM scm_interaction_environment (void);
 extern SCM scm_set_current_module (SCM module);
 extern SCM scm_make_module (SCM name);