Merge from mvo-vcell-cleanup-1-branch.

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

diff --git a/libguile/hooks.c b/libguile/hooks.c
index 96a9657..9834474 100644 (file)
--- a/libguile/hooks.c
+++ b/libguile/hooks.c
@@ -198,7 +198,7 @@ SCM
 scm_create_hook (const char* name, int n_args)
 {
   SCM hook = make_hook (SCM_MAKINUM (n_args), "scm_create_hook");
-  scm_sysintern (name, hook);
+  scm_c_define (name, hook);
   scm_protect_object (hook);
   return hook;
 }