--- a/src/mule-wnnfns.c	Mon Aug 13 11:25:03 2007 +0200
+++ b/src/mule-wnnfns.c	Mon Aug 13 11:26:11 2007 +0200
@@ -1875,9 +1875,22 @@
 }
 
 void
+reinit_vars_of_mule_wnn (void)
+{
+  int i;
+
+  for (i = 0; i < NSERVER; i++)
+    {
+      wnnfns_buf[i] = (struct wnn_buf *) 0;
+      wnnfns_env_norm[i] = (struct wnn_env *) 0;
+      wnnfns_env_rev[i] = (struct wnn_env *) 0;
+    }
+}
+
+void
 vars_of_mule_wnn (void)
 {
-  int i;
+  reinit_vars_of_mule_wnn ();
 
   DEFVAR_INT ("lb-sisheng", &lb_sisheng /*
 Leading character for Sisheng.
@@ -1901,13 +1914,6 @@
 
   Vwnn_uniq_level = Qwnn_uniq;
 
-  for (i = 0; i < NSERVER; i++)
-    {
-      wnnfns_buf[i] = (struct wnn_buf *) 0;
-      wnnfns_env_norm[i] = (struct wnn_env *) 0;
-      wnnfns_env_rev[i] = (struct wnn_env *) 0;
-    }
-
   Fprovide(intern("wnn"));
 }