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 -r1.39 -r1.40
--- openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	25 Apr 2018 19:23:26 -0000	1.39
+++ openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	9 May 2018 15:33:29 -0000	1.40
@@ -60,7 +60,7 @@
 
     @author Peter Marklund
 } {
-    set context {}
+    set context [list]
 
     while { $node_id ne "" } {        
         array set node [site_node::get -node_id $node_id]
@@ -234,7 +234,7 @@
 } {
 
     set count 0
-    set return_list {}
+    set return_list [list]
 
     foreach value $values {
 	if { $default eq $value  } {
@@ -274,7 +274,7 @@
 # directories that should not receive links to move up one level
 
 proc ad_no_uplevel_patterns {} {
-    set regexp_patterns {}
+    set regexp_patterns [list]
     lappend regexp_patterns "*/pvt/home.tcl"
     # Tcl files in the root directory
     lappend regexp_patterns "^/\[^/\]*\.tcl\$"