diff --git a/tp/Texinfo/XS/parsetexi/api.c b/tp/Texinfo/XS/parsetexi/api.c
index 76832a353..1400eefd2 100644
--- a/tp/Texinfo/XS/parsetexi/api.c
+++ b/tp/Texinfo/XS/parsetexi/api.c
@@ -56,34 +56,56 @@ find_locales_dir (char *builddir)
 
   dTHX;
 
+  fprintf (stderr, "B 1\n");
+
   asprintf (&s, "%s/LocaleData", builddir);
+  fprintf (stderr, "B 2\n");
   dir = opendir (s);
+  fprintf (stderr, "B 3\n");
   if (!dir)
     {
+      fprintf (stderr, "B 4\n");
       free (s);
+      fprintf (stderr, "B 5\n");
       fprintf (stderr, "Locales dir for document strings not found: %s\n",
                strerror (errno));
+      fprintf (stderr, "B 6\n");
     }
   else
     {
+      fprintf (stderr, "B 7\n");
       bindtextdomain (PACKAGE, s);
+      fprintf (stderr, "B 8\n");
       free (s);
+      fprintf (stderr, "B 9\n");
       closedir (dir);
+      fprintf (stderr, "B 10\n");
     }
 }
 
 int
 init (int texinfo_uninstalled, char *builddir)
 {
+  fprintf (stderr, "A 1\n");
   setlocale (LC_ALL, "");
+  fprintf (stderr, "A 2\n");
 
   /* Use installed or uninstalled translation files for gettext. */
   if (texinfo_uninstalled)
+    {
+  fprintf (stderr, "A 3\n");
     find_locales_dir (builddir);
+    }
   else
+    {
+  fprintf (stderr, "A 4\n");
     bindtextdomain (PACKAGE, LOCALEDIR);
+    }
+
 
+  fprintf (stderr, "A 5\n");
   textdomain (PACKAGE);
+  fprintf (stderr, "A 6\n");
 
   return 1;
 }