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 -r1.10 -r1.11
--- openacs-4/packages/acs-tcl/tcl/30-xml-utils-procs.tcl	22 Aug 2005 16:02:45 -0000	1.10
+++ openacs-4/packages/acs-tcl/tcl/30-xml-utils-procs.tcl	10 Jan 2007 21:22:11 -0000	1.11
@@ -23,7 +23,7 @@
 # Parse a document and return a doc_id
 proc xml_parse args {
 #   ns_log notice "xml_parse $args"
-    if {[lindex $args 0] == "-persist"} {
+    if {[lindex $args 0] eq "-persist"} {
 	return [dom parse -simple [lindex $args 1]]
     } else {
 	dom parse -simple [lindex $args 0] doc