Index: openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl	27 Mar 2018 11:18:00 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl	6 Apr 2018 15:12:00 -0000	1.9
@@ -299,8 +299,9 @@
 		$parser configure -final false
 		while {[string length [lindex $args 0]]} {
 		    $parser parse [string range [lindex $args 0] 0 $opts(-chunksize)]
-		    set args [lreplace $args 0 0 \
-			[string range [lindex $args 0] $opts(-chunksize) end]]
+		    #set args [lreplace $args 0 0 \
+                    #              [string range [lindex $args 0] $opts(-chunksize) end]]
+                    lset args 0 [string range [lindex $args 0] $opts(-chunksize) end]
 		    uplevel #0 $opts(-progresscommand)
 		}
 		$parser configure -final true
@@ -956,8 +957,9 @@
 		node removeChild $newChild(node:parentNode) [lindex $args 0]
 	    }
 
-	    set $node(node:childNodes) \
-		[lreplace [set $node(node:childNodes)] $idx $idx [lindex $args 0]]
+	    #set $node(node:childNodes) \
+		#[lreplace [set $node(node:childNodes)] $idx $idx [lindex $args 0]]
+            lset $node(node:childNodes) $idx [lindex $args 0]
 	    set newChild(node:parentNode) $token
 
 	    # Update old child to reflect lack of parentage