diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index b474fd0f9..b74998434 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,5 +1,8 @@
 2002-03-16  Neil Jerram  <neil@ossau.uklinux.net>
 
+	* hooks.c (scm_t_c_hookype_t), hooks.h (scm_t_c_hookype_t):
+	Corrected everywhere to `scm_t_c_hook_type'.
+
 	* filesys.c (scm_close): Fix stale cross reference in docstring.
 
 2002-03-15  Thien-Thi Nguyen  <ttn@giblet.glug.org>
diff --git a/libguile/hooks.c b/libguile/hooks.c
index 0cc1763c5..af7d6066c 100644
--- a/libguile/hooks.c
+++ b/libguile/hooks.c
@@ -64,7 +64,7 @@
  */
 
 void
-scm_c_hook_init (scm_t_c_hook *hook, void *hook_data, scm_t_c_hookype_t type)
+scm_c_hook_init (scm_t_c_hook *hook, void *hook_data, scm_t_c_hook_type type)
 {
   hook->first = 0;
   hook->type = type;
@@ -114,7 +114,7 @@ void *
 scm_c_hook_run (scm_t_c_hook *hook, void *data)
 {
   scm_t_c_hook_entry *entry = hook->first;
-  scm_t_c_hookype_t type = hook->type;
+  scm_t_c_hook_type type = hook->type;
   void *res = 0;
   while (entry)
     {
diff --git a/libguile/hooks.h b/libguile/hooks.h
index c475bb07e..916d1b612 100644
--- a/libguile/hooks.h
+++ b/libguile/hooks.h
@@ -56,11 +56,11 @@
  * both may want to indicate success/failure and return a result.
  */
 
-typedef enum scm_t_c_hookype_t {
+typedef enum scm_t_c_hook_type {
   SCM_C_HOOK_NORMAL,
   SCM_C_HOOK_OR,
   SCM_C_HOOK_AND
-} scm_t_c_hookype_t;
+} scm_t_c_hook_type;
 
 typedef void  *(*scm_t_c_hook_function) (void *hook_data,
 					 void *func_data,
@@ -74,13 +74,13 @@ typedef struct scm_t_c_hook_entry {
 
 typedef struct scm_t_c_hook {
   scm_t_c_hook_entry *first;
-  scm_t_c_hookype_t type;
+  scm_t_c_hook_type type;
   void *data;
 } scm_t_c_hook;
 
 extern void scm_c_hook_init (scm_t_c_hook *hook,
 			     void *hook_data,
-			     scm_t_c_hookype_t type);
+			     scm_t_c_hook_type type);
 extern void scm_c_hook_add (scm_t_c_hook *hook,
 			    scm_t_c_hook_function func,
 			    void *func_data,