Index: openacs-4/packages/forums/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/form-procs.tcl,v
diff -u -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/forums/tcl/form-procs.tcl	10 May 2006 07:21:59 -0000	1.6.2.1
+++ openacs-4/packages/forums/tcl/form-procs.tcl	10 May 2006 08:30:08 -0000	1.6.2.2
@@ -156,6 +156,7 @@
       -datatype richtext \
       -widget richtext \
       -html {cols 60 rows 10 wrap soft} \
+      -validate { {expr [string length $value] <= 4000 } {#forums.charter_max_chars#} } \
       -optional
 
     template::element create $form_name ${prefix}presentation_type \