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.39.2.12 -r1.39.2.13
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	15 Jun 2007 01:50:23 -0000	1.39.2.12
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	15 Jun 2007 13:48:09 -0000	1.39.2.13
@@ -2796,11 +2796,11 @@
     set filter_hidden_filters [list]
     set filter_key_filters [list]
     set filter_hidden_filters_url_vars [list]
-
+    set filter_exclude_from_key [list orderby groupby page]
     # loop through all the filters in this list
     foreach filter_ref $list_properties(filter_refs) {
         upvar #$level $filter_ref filter_properties
-	if {$filter_properties(label) ne "" && [lsearch {orderby groupby page} $filter_properties(name)] < 0} {
+	if {$filter_properties(label) ne "" && [lsearch $filter_exclude_from_key $filter_properties(name)] < 0} {
 	    # filters with a label will be added to the form for the user
 	    # to choose from
 	    lappend filter_names_options_tmp [list $filter_properties(label) $filter_properties(name)]
@@ -2816,7 +2816,8 @@
 	    upvar $list_properties(ulevel) $filter_properties(name) current_filter_value
 	    if {[info exists current_filter_value] && $current_filter_value ne ""} {
 		lappend filter_hidden_filters $filter_properties(name)
-		if {$filter_properties(name) ne "groupby" && $filter_properties(name) ne "orderby"} {
+
+		if {[lsearch $filter_exclude_from_key $filter_properties(name)] < 0} {
 		    lappend filter_key_filters $filter_properties(name) $current_filter_value
 		}
 	    }