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.