Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	10 Sep 2002 22:22:07 -0000	1.9
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	14 Sep 2002 16:50:17 -0000	1.10
@@ -554,11 +554,11 @@
 	set date [dt_sysdate]
     }
 
+    set list_of_vars [list]
 
     # Ben: some annoying stuff to do here since we are passing in things in GET format already
     if {![empty_string_p $pass_in_vars]} {
         set vars [split $pass_in_vars "&"]
-        set list_of_vars [list]
         foreach var $vars {
             set things [split $var "="]
             lappend list_of_vars $things