Index: openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl,v
diff -u -r1.17.2.4 -r1.17.2.5
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	2 Oct 2013 22:55:57 -0000	1.17.2.4
+++ openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	31 Oct 2013 17:38:02 -0000	1.17.2.5
@@ -145,16 +145,12 @@
 	set value  [lindex [split [ns_localsqltimestamp] " "] 0]
     } 
 
-    set date_parts [split $value "-"]
     if { $value eq "" } {
 	set month ""
 	set day ""
 	set year ""
     } else {
-	set date_parts [split $value "-"]
-	set month [lindex $date_parts 1]
-	set year [lindex $date_parts 0]
-	set day [lindex $date_parts 2]
+	lassign [split $value "-"] year month day
     }
 
     set output "<select name=\"$column.month\">\n"
@@ -210,8 +206,7 @@
     if {$option_list ne ""} {
         foreach opt $option_list { 
             incr count
-            set item [lindex $opt 1]
-            set value [lindex $opt 0]
+	    lassign $opt value item
             if { (!$multiple && $value eq $default ) 
                  || ($multiple && $value in $default) 
 	     } {