Index: openacs-4/packages/acs-tcl/tcl/json-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/json-procs.tcl,v
diff -u -r1.11.2.9 -r1.11.2.10
--- openacs-4/packages/acs-tcl/tcl/json-procs.tcl	30 Jul 2024 17:53:44 -0000	1.11.2.9
+++ openacs-4/packages/acs-tcl/tcl/json-procs.tcl	20 Aug 2024 06:59:12 -0000	1.11.2.10
@@ -721,7 +721,10 @@
     @author Gustaf Neumann
 } {
     #ns_log notice "PARSE\n$jsonText"
-    return [util::tdomDoc2dict [dom parse -json -- $jsonText]]
+    set doc [dom parse -json -- $jsonText]
+    set result [util::tdomDoc2dict $doc]
+    $doc delete
+    return $result
 }
 
 # Local variables: