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.13 -r1.14
--- openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl	29 May 2003 18:49:17 -0000	1.13
+++ openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl	10 Jun 2003 01:40:44 -0000	1.14
@@ -112,7 +112,7 @@
         array set msg_catalog_array {}
 
         # Parse the xml document
-        set tree [xml_parse $xml_data]
+        set tree [xml_parse $catalog_file_contents]
 
         # Get the message catalog root node
         set root_node [xml_doc_get_first_node_by_name $tree ${MESSAGE_CATALOG_TAG}]