Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -N -r1.14.2.4 -r1.14.2.5
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	13 Mar 2003 17:55:19 -0000	1.14.2.4
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	20 Mar 2003 12:49:15 -0000	1.14.2.5
@@ -184,6 +184,10 @@
         append output " $name=\"$attributes($name)\""
       }
     }
+
+    if { [info exists element(maxlength)] } {
+        append output " maxlength=\"$element(maxlength)\""
+    }
     
     append output " />"
   }