Index: openacs-4/packages/acs-bootstrap-installer/installer/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer/index.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-bootstrap-installer/installer/index.tcl	17 May 2003 09:40:03 -0000	1.10
+++ openacs-4/packages/acs-bootstrap-installer/installer/index.tcl	17 Jun 2003 01:04:45 -0000	1.11
@@ -61,10 +61,15 @@
 
 if { [file exists [acs_root_dir]/install.xml] } {
 
+    # Parse the xml document
     set file [open "[acs_root_dir]/install.xml"]
-    nsv_set acs_application node [xml_doc_get_first_node_by_name [xml_parse -persist [xml_prepare_data [read $file]]] application]
+    set root_node [xml_doc_get_first_node [xml_parse -persist [read $file]]]
     close $file
 
+    if { ![string equal [xml_node_get_name $root_node] application] } {
+        error "Installer: Could not find root node application in install.xml file"
+    }
+
     nsv_set acs_application name [apm_required_attribute_value [nsv_get acs_application node] name]
     nsv_set acs_application pretty_name \
         [apm_attribute_value -default [nsv_get acs_application name] [nsv_get acs_application node] pretty-name]