Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v
diff -u -r1.93.2.8 -r1.93.2.9
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	11 Oct 2015 17:22:23 -0000	1.93.2.8
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	20 Oct 2015 08:01:05 -0000	1.93.2.9
@@ -882,10 +882,11 @@
         array set node_array [site_node::get -url $url]
 
         # are we looking for a specific package_key?
-        if { $package_key eq "" || \
-                 [lsearch -exact $package_key $node_array(package_key)] != -1 } {
+        if { $package_key eq ""
+             || $node_array(package_key) in $package_key
+         } {
             set elm_value $node_array($element)
-        }       
+        }
     }
 
     return $elm_value
@@ -943,7 +944,7 @@
     } 
 
     if { $folder ne "" } {
-        if { [lsearch $existing_urls $folder] != -1 } {
+        if { $folder in $existing_urls } {
             # The folder is on the list
             if { $current_node_id eq "" } {
                 # New node: Complain
@@ -952,8 +953,9 @@
                 # Renaming an existing node: Check to see if the node is merely conflicting with itself
                 set parent_url [site_node::get_url -node_id $parent_node_id]
                 set new_node_url "$parent_url$folder"
-                if { ![site_node::exists_p -url $new_node_url] || \
-                         $current_node_id != [site_node::get_node_id -url $new_node_url] } {
+                if { ![site_node::exists_p -url $new_node_url]
+                     || $current_node_id != [site_node::get_node_id -url $new_node_url]
+                 } {
                     return {}
                 }
             }