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.60.2.8 -r1.60.2.9
--- openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl	29 Aug 2022 14:17:23 -0000	1.60.2.8
+++ openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl	20 Aug 2024 09:30:04 -0000	1.60.2.9
@@ -496,6 +496,7 @@
     # Get the message catalog root node
     set root_node [xml_doc_get_first_node $tree]
     if { [xml_node_get_name $root_node] ne $MESSAGE_CATALOG_TAG } {
+        $tree delete
         error "lang::catalog_parse: Could not find root node $MESSAGE_CATALOG_TAG"
     }
 
@@ -529,6 +530,7 @@
     # Add the keys and the texts to the descriptions array
     set msg_catalog_array(descriptions) [array get key_description_array]
 
+    $tree delete
     return [array get msg_catalog_array]
 }