* The name property of hooks is deprecated.

[bpt/guile.git] / libguile / gc.c

diff --git a/libguile/gc.c b/libguile/gc.c
index 9c90dc3..4100338 100644 (file)
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -2340,6 +2340,7 @@ void
 scm_init_gc ()
 {
   scm_after_gc_hook = scm_create_hook ("after-gc-hook", 0);
+  scm_protect_object (scm_after_gc_hook);
 #include "libguile/gc.x"
 }