Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	12 Dec 2001 20:54:47 -0000	1.3
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	17 Dec 2001 20:09:55 -0000	1.4
@@ -528,7 +528,7 @@
      # Display text entry for some elements, or if the type is text
      if { [string equal $type t] ||
           [regexp "year|short_year" $fragment] } {
-       return "<input type=\"text\" name=\"$element(name).$fragment\" size=\'$size\"
+       return "<input type=\"text\" name=\"$element(name).$fragment\" size=\"$size\"
      maxlength=\"$size\" value=\"[template::util::leadingPad $value $size]\"/>\n"
      } else {
      # Use a default range for others