Index: openacs-4/packages/dotlrn/tcl/navigation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/navigation-procs.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/dotlrn/tcl/navigation-procs.tcl	7 Aug 2017 23:48:09 -0000	1.29
+++ openacs-4/packages/dotlrn/tcl/navigation-procs.tcl	6 Apr 2018 14:58:11 -0000	1.30
@@ -88,14 +88,14 @@
             }
     
             if { [llength $application_admin_context] > 0 } {
-                set application_context [concat $application_context $application_admin_context] 
+                lappend application_context {*}$application_admin_context
             }
     
             if { $context ne "" } {
-                set application_context [concat $application_context $context]
+                lappend application_context {*}$context
             } else {
                 # Make last entry be just the label
-                set application_context [lreplace $application_context end end [lindex $application_context end 1]]
+                lset application_context end [lindex $application_context end 1]
             }
         } else {
             set application_context [list]