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.6 -r1.17.2.7
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	5 Dec 2013 11:22:33 -0000	1.17.2.6
+++ openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	10 Sep 2014 10:23:11 -0000	1.17.2.7
@@ -184,6 +184,8 @@
 	set year ""
     } else {
 	lassign [split $value "-"] year month day
+	# trim the day, in case we get as well a time stamp
+	regexp {^([0-9]+) } $day _ day
     }
 
     set output "<select name=\"$column.month\">\n"
@@ -198,7 +200,8 @@
 	}
     }
 
-    append output "</select><input name=\"$column.day\" type=\"text\" size=\"3\" maxlength=\"2\" value=\"$day\">&nbsp;<input name=\"$column.year\" type=\"text\" size=\"5\" maxlength=\"4\" value=\"$year\">"
+    append output [subst {</select><input name="$column.day" type="text" size="2" maxlength="2" value="$day">&nbsp;
+	<input name="$column.year" type="text" size="4" maxlength="4" value="$year">}]
 
      return $output
 }