diff --git a/libguile/modules.c b/libguile/modules.c
index b5047e739..4bb698d05 100644
--- a/libguile/modules.c
+++ b/libguile/modules.c
@@ -340,19 +340,6 @@ SCM_DEFINE (scm_standard_eval_closure, "standard-eval-closure", 1, 0, 0,
 }
 #undef FUNC_NAME
 
-
-SCM_DEFINE (scm_eval_closure_module, "eval-closure-module", 1, 0, 0,
-	    (SCM closure),
-	    "Return the module for @var{closure}.")
-#define FUNC_NAME s_scm_eval_closure_module
-{
-  SCM_ASSERT_TYPE(SCM_EVAL_CLOSURE_P (closure), closure, SCM_ARG1, FUNC_NAME, "eval-closure");
-  return SCM_PACK (SCM_CELL_WORD_1(closure));
-}
-#undef FUNC_NAME
- 
-
-
 SCM_DEFINE (scm_standard_interface_eval_closure,
 	    "standard-interface-eval-closure", 1, 0, 0,
 	    (SCM module),
diff --git a/libguile/modules.h b/libguile/modules.h
index 6cee3d555..b147697e1 100644
--- a/libguile/modules.h
+++ b/libguile/modules.h
@@ -118,7 +118,6 @@ extern SCM scm_current_module_lookup_closure (void);
 extern SCM scm_current_module_transformer (void);
 extern SCM scm_eval_closure_lookup (SCM eclo, SCM sym, SCM definep);
 extern SCM scm_standard_eval_closure (SCM module);
-extern SCM scm_eval_closure_module (SCM closure);
 extern SCM scm_standard_interface_eval_closure (SCM module);
 extern SCM scm_get_pre_modules_obarray (void);
 extern SCM scm_lookup_closure_module (SCM proc);