Index: openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl	9 Apr 2018 20:11:54 -0000	1.14
+++ openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl	9 Apr 2018 21:16:06 -0000	1.15
@@ -835,14 +835,14 @@
 ad_proc -private publish::set_to_pairs { params {exclusion_list ""} } {
 
   @private set_to_pairs
- 
+
   Convert an ns_set into a list of name-value pairs, in form
   {name value name value ...}
- 
+
   @param params   The ns_set id
   @param exclusion_list {}
      A list of keys to be ignored
- 
+
   @return A list of name-value pairs representing the data in the ns_set
 
 } {
@@ -851,7 +851,7 @@
   for { set i 0 } { $i < [ns_set size $params] } { incr i } {
     set key   [ns_set key $params $i]
     set value [ns_set value $params $i]
-    if { [lsearch $exclusion_list $key] == -1 } {
+    if { $key ni $exclusion_list } {
       lappend extra_args $key $value
     }
   }