Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v
diff -u -r1.78 -r1.79
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	25 Apr 2018 19:23:26 -0000	1.78
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	30 Apr 2018 12:45:00 -0000	1.79
@@ -513,12 +513,12 @@
 
     prepare_filters \
         -name $name
-    
+
     # Split the current ordering info into name and direction
     # name is the string before the comma, order (asc/desc) is what's after
     if { [info exists list_properties(filter,$list_properties(orderby_name))] } {
         lassign [lrange [split $list_properties(filter,$list_properties(orderby_name)) ","] 0 1] orderby_name orderby_direction
-        
+
         set list_properties(orderby_selected_name) $orderby_name
         if { $orderby_direction eq "" } {
 
@@ -3247,8 +3247,7 @@
     # take out filters we already applied...
     set i 0
     foreach option_list $filter_names_options_tmp {
-        set option_label [lindex $option_list 0]
-        set option_name [lindex $option_list 1]
+        lassign $option_list option_label option_name
         if {"${name}:filter:${option_name}:properties" ni $client_property_filters} {
             lappend filter_names_options [list $option_label $option_name]
         }