Index: xml.c
===================================================================
RCS file: /cvsroot/texinfo/texinfo/makeinfo/xml.c,v
retrieving revision 1.4
diff -u -r1.4 xml.c
--- xml.c	7 Nov 2002 22:14:56 -0000	1.4
+++ xml.c	7 Nov 2002 22:42:05 -0000
@@ -821,7 +821,7 @@
   if (docbook && !only_macro_expansion && (in_menu || in_detailmenu))
     return;
 
-  if (!first_section_opened && !in_abstract && xml_current_element () == TEXINFO
+  if (!executing_string && !first_section_opened && !in_abstract && xml_current_element () == TEXINFO
       && !xml_no_para && character != '\r' && character != '\n' && character != ' ')
     {
       xml_insert_element (BOOKINFO, START);