--- a/src/mule-ccl.c	Mon Aug 13 11:01:58 2007 +0200
+++ b/src/mule-ccl.c	Mon Aug 13 11:03:08 2007 +0200
@@ -1097,14 +1097,6 @@
 void
 syms_of_mule_ccl (void)
 {
-  DEFSUBR (Fccl_execute);
-  DEFSUBR (Fccl_execute_on_string);
-  DEFSUBR (Fregister_ccl_program);
-}
-
-void
-vars_of_mule_ccl (void)
-{
   staticpro (&Vccl_program_table);
   Vccl_program_table = Fmake_vector (make_int (32), Qnil);
 
@@ -1121,6 +1113,10 @@
 If the font is single-byte font, the register R2 is not used.
 */ );
   Vfont_ccl_encoder_alist = Qnil;
+
+  DEFSUBR (Fccl_execute);
+  DEFSUBR (Fccl_execute_on_string);
+  DEFSUBR (Fregister_ccl_program);
 }
 
 #endif  /* emacs */