Index: openacs-4/packages/xowiki/www/admin/test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/test.tcl,v
diff -u -N -r1.30 -r1.31
--- openacs-4/packages/xowiki/www/admin/test.tcl	14 Feb 2011 11:22:40 -0000	1.30
+++ openacs-4/packages/xowiki/www/admin/test.tcl	20 May 2011 17:10:52 -0000	1.31
@@ -1368,7 +1368,7 @@
 
 set f0 [$o create_raw_form_field -name test -slot ::xowiki::Page::slot::name]
 ? {$f0 asWidgetSpec} \
-    {text,optional {label {#xowiki.Page-name#}}  {html {id F.dummy.test size 80 }}  {help_text {Shortname to identify an entry within a folder, typically lowercase characters}}} \
+    {text,optional {label {#xowiki.Page-name#}}  {html {maxlength 400 id F.dummy.test size 80 }}  {help_text {Shortname to identify an entry within a folder, typically lowercase characters}}} \
     "name with help_text"
 
 set f0 [$o create_raw_form_field -name test \
@@ -1380,7 +1380,7 @@
 set f0 [$o create_raw_form_field -name test \
 	    -slot ::xowiki::Page::slot::name -spec optional]
 ? {$f0 asWidgetSpec} \
-    {text,optional {label {#xowiki.Page-name#}}  {html {id F.dummy.test size 80 }}  {help_text {Shortname to identify an entry within a folder, typically lowercase characters}}} \
+    {text,optional {label {#xowiki.Page-name#}}  {html {maxlength 400 id F.dummy.test size 80 }}  {help_text {Shortname to identify an entry within a folder, typically lowercase characters}}} \
     "name with help_text + optional"
 
 set f1 [$o create_raw_form_field -name test \