Index: openacs-4/packages/acs-tcl/tcl/test/http-client-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/http-client-procs.tcl,v
diff -u -r1.1.2.26 -r1.1.2.27
--- openacs-4/packages/acs-tcl/tcl/test/http-client-procs.tcl	28 Jul 2024 17:00:04 -0000	1.1.2.26
+++ openacs-4/packages/acs-tcl/tcl/test/http-client-procs.tcl	20 Aug 2024 08:14:40 -0000	1.1.2.27
@@ -192,16 +192,17 @@
 
                 aa_log "Server responded with: $json_response"
 
-                set root [dom parse -json -- $json_response]
+                set doc [dom parse -json -- $json_response]
                 set resp_key ""
                 set resp_value ""
-                foreach node [$root childNodes] {
+                foreach node [$doc childNodes] {
                     if {[$node nodeName] eq "data"} {
                         set child [$node firstChild]
                         set resp_key    [$child nodeName]
                         set resp_string [$child text]
                     }
                 }
+                $doc delete
 
                 aa_equals "Format seems correct" $resp_key $test_key
                 aa_equals "Value is correct" $resp_string $test_string
@@ -221,16 +222,17 @@
 
                 aa_log "Server responded with: $json_response"
 
-                set root [dom parse -json -- $json_response]
+                set doc [dom parse -json -- $json_response]
                 set resp_key ""
                 set resp_value ""
-                foreach node [$root childNodes] {
+                foreach node [$doc childNodes] {
                     if {[$node nodeName] eq "args"} {
                         set child [$node firstChild]
                         set resp_key    [$child nodeName]
                         set resp_string [$child text]
                     }
                 }
+                $doc delete
 
                 aa_equals "Format seems correct" $resp_key $test_key
                 aa_equals "Value is correct" $resp_string $test_string