diff --git a/libguile/debug.c b/libguile/debug.c
index e6e73c611..12b3a8a16 100644
--- a/libguile/debug.c
+++ b/libguile/debug.c
@@ -255,6 +255,7 @@ scm_make_memoized (exp, env)
  * - constant: SCM_IM_DEFINE
  * - constant: SCM_IM_APPLY
  * - constant: SCM_IM_CONT
+ * - constant: SCM_IM_DISPATCH
  */
 
 #include "variable.h"
@@ -662,10 +663,11 @@ scm_init_debug ()
   scm_sysintern ("SCM_IM_LETREC", SCM_IM_LETREC);
   scm_sysintern ("SCM_IM_OR", SCM_IM_OR);
   scm_sysintern ("SCM_IM_QUOTE", SCM_IM_QUOTE);
-  scm_sysintern ("SCM_IM_SET", SCM_IM_SET);
+  scm_sysintern ("SCM_IM_SET_X", SCM_IM_SET_X);
   scm_sysintern ("SCM_IM_DEFINE", SCM_IM_DEFINE);
   scm_sysintern ("SCM_IM_APPLY", SCM_IM_APPLY);
   scm_sysintern ("SCM_IM_CONT", SCM_IM_CONT);
+  scm_sysintern ("SCM_IM_DISPATCH", SCM_IM_DISPATCH);
 #endif
   scm_add_feature ("debug-extensions");