diff --git a/libguile/gc.c b/libguile/gc.c
index 7bf0987b9..bb39efd91 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -346,6 +346,18 @@ SCM_DEFINE (scm_gc_stats, "gc-stats", 0, 0, 0,
 #undef FUNC_NAME
 
 
+SCM_DEFINE (scm_gc_dump, "gc-dump", 0, 0, 0,
+	    (void),
+	    "Dump information about the garbage collector's internal data "
+	    "structures and memory usage to the standard output.")
+#define FUNC_NAME s_scm_gc_dump
+{
+  GC_dump ();
+
+  return SCM_UNSPECIFIED;
+}
+#undef FUNC_NAME
+
 
 SCM_DEFINE (scm_object_address, "object-address", 1, 0, 0,
             (SCM obj),
diff --git a/libguile/gc.h b/libguile/gc.h
index 6b3d6a252..4692a4935 100644
--- a/libguile/gc.h
+++ b/libguile/gc.h
@@ -204,6 +204,7 @@ SCM_API SCM scm_set_debug_cell_accesses_x (SCM flag);
 SCM_API SCM scm_object_address (SCM obj);
 SCM_API SCM scm_gc_enable (void);
 SCM_API SCM scm_gc_disable (void);
+SCM_API SCM scm_gc_dump (void);
 SCM_API SCM scm_gc_stats (void);
 SCM_API SCM scm_gc_live_object_stats (void);
 SCM_API SCM scm_gc (void);