Index: openacs-4/packages/acs-tcl/tcl/30-xml-utils-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/30-xml-utils-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/30-xml-utils-procs.tcl	12 Apr 2001 16:58:18 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/30-xml-utils-procs.tcl	31 May 2001 21:18:07 -0000	1.2
@@ -11,6 +11,14 @@
 # It would be nice if this could be used without the ACS, so we're not
 # using ad_proc constructs for this at this point.
 
+# Clean stuff up if we have to
+# I'm unhappy about this, but there seem to be bugs in the XML parser!! (ben)
+proc xml_prepare_data {xml_data} {
+    # remove comments
+    regsub -all {<!--[^>]*-->} $xml_data "" new_xml_data
+    return $new_xml_data
+}
+
 # Find nodes of a parent that have a given name
 proc xml_find_child_nodes {parent_node name} {
     set children [ns_xml node children $parent_node]