Index: openacs-4/packages/xml-rpc/tcl/validator-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xml-rpc/tcl/validator-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/xml-rpc/tcl/validator-procs.tcl	10 Apr 2008 15:29:34 -0000	1.3
+++ openacs-4/packages/xml-rpc/tcl/validator-procs.tcl	25 Apr 2018 19:47:48 -0000	1.4
@@ -255,11 +255,11 @@
     # for each year
     for {set y $startyear} {$y <= $endyear} {incr y} {
 
-        set year [list]
+        set year {}
         # for each month
         for {set m 1} {$m <= 12} {incr m} {
 
-            set month [list]
+            set month {}
             # for each day
             set mstr [format %02d $m]
             for {set d 1} {$d <= 31} {incr d} {