Index: openacs-4/packages/acs-subsite/www/admin/site-map/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/new.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-subsite/www/admin/site-map/new.tcl	20 Jan 2018 22:45:12 -0000	1.11
+++ openacs-4/packages/acs-subsite/www/admin/site-map/new.tcl	7 Apr 2018 17:31:59 -0000	1.12
@@ -62,7 +62,7 @@
     ad_script_abort
 }
 
-if {[lsearch $expand $parent_id] == -1} {
+if {$parent_id ni $expand} {
     lappend expand $parent_id
 }
 
Index: openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl	15 Sep 2017 07:21:56 -0000	1.12
+++ openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl	7 Apr 2018 17:31:59 -0000	1.13
@@ -180,7 +180,12 @@
     set delete_url ""
     set parameters_url ""
     set permissions_url ""
-    if { [lsearch -exact $open_nodes $parent_id] == -1 && $parent_id ne "" && $mylevel > 2 } { continue } 
+    if { $parent_id ni $open_nodes
+         && $parent_id ne ""
+         && $mylevel > 2
+     } {
+        continue
+    } 
         
     if {$directory_p == "t"} {
 	set add_folder_url "?[export_vars {expand:multiple root_id node_id {new_parent $node_id} {new_type folder}}]"