Index: openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl,v
diff -u -N -r1.36 -r1.37
--- openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	4 Apr 2018 08:11:26 -0000	1.36
+++ openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	6 Apr 2018 15:02:47 -0000	1.37
@@ -185,7 +185,7 @@
 
     if {[llength $args] == 0} { 
         # fix last element to just be literal string
-        set context [lreplace $context end end [lindex $context end 1]]
+        lset context end [lindex $context end 1]
     } else {
 	if {![string match "\{*" $args]} {
 	    # args is not a list, transform it into one.
Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -N -r1.132 -r1.133
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	27 Mar 2018 14:32:02 -0000	1.132
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	6 Apr 2018 15:12:00 -0000	1.133
@@ -881,7 +881,8 @@
         && ![permission::permission_p -object_id [ad_conn package_id] -privilege admin]
     } {
         set message {}
-        set params [lreplace $params 0 0 [list stacktrace $message]]
+        #set params [lreplace $params 0 0 [list stacktrace $message]]
+        lset params 0 [list stacktrace $message]
     }
 
     ad_try {
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 -N -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
Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v
diff -u -N -r1.52 -r1.53
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	22 Jan 2018 09:42:31 -0000	1.52
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	6 Apr 2018 15:12:00 -0000	1.53
@@ -588,7 +588,8 @@
   }
 
   # replace the minute value in the now list with new value
-  set now [lreplace $now 4 4 $minute]
+  #set now [lreplace $now 4 4 $minute]
+  lset now 4 $minute
 
   return [create {*}$now]
 }