Index: openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl,v
diff -u -r1.49.8.5 -r1.49.8.6
--- openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl	24 Sep 2013 18:44:10 -0000	1.49.8.5
+++ openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl	13 Oct 2013 10:37:10 -0000	1.49.8.6
@@ -496,8 +496,8 @@
 
     # Get the message catalog root node
     set root_node [xml_doc_get_first_node $tree]
-    if { ![string equal [xml_node_get_name $root_node] ${MESSAGE_CATALOG_TAG}] } {
-        error "lang::catalog_parse: Could not find root node ${MESSAGE_CATALOG_TAG}"
+    if { [xml_node_get_name $root_node] ne $MESSAGE_CATALOG_TAG } {
+        error "lang::catalog_parse: Could not find root node $MESSAGE_CATALOG_TAG"
     }
 
     # Set the message catalog root level attributes