Index: openacs-4/packages/calendar/www/view-list-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-list-display.tcl,v
diff -u -r1.41.2.7 -r1.41.2.8
--- openacs-4/packages/calendar/www/view-list-display.tcl	30 Jan 2023 17:51:34 -0000	1.41.2.7
+++ openacs-4/packages/calendar/www/view-list-display.tcl	29 Mar 2023 13:50:50 -0000	1.41.2.8
@@ -206,17 +206,12 @@
 }
 
 
-set excluded_vars {}
 set the_form [ns_getform]
-if { $the_form ne "" } {
-    foreach varname [ns_set keys $the_form] {
-        if {$varname eq "period_days" ||
-            [string match "__*" $varname] ||
-            [string match "form:*" $varname]} {
-            lappend excluded_vars $varname
-        }
-    }
-}
+set excluded_vars [list \
+                       "period_days" \
+                       {*}[ns_set keys $the_form "__*"] \
+                       {*}[ns_set keys $the_form "form:*"] \
+                      ]
 
 set exported_vars [export_vars -entire_form -no_empty -form -exclude $excluded_vars]