Index: openacs-4/packages/xowiki/xowiki.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v
diff -u -r1.180.2.96 -r1.180.2.97
--- openacs-4/packages/xowiki/xowiki.info	9 Apr 2022 11:00:45 -0000	1.180.2.96
+++ openacs-4/packages/xowiki/xowiki.info	14 Apr 2022 10:14:43 -0000	1.180.2.97
@@ -10,7 +10,7 @@
     <inherit-templates-p>t</inherit-templates-p>
     <auto-mount>xowiki</auto-mount>
 
-    <version name="5.10.1d26" url="http://openacs.org/repository/download/apm/xowiki-5.10.1d26.apm">
+    <version name="5.10.1d27" url="http://openacs.org/repository/download/apm/xowiki-5.10.1d27.apm">
 	<owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
 	<summary>A xotcl-based enterprise wiki system with multiple object types</summary>
 	<release-date>2021-09-15</release-date>
@@ -55,7 +55,7 @@
 	<license>BSD-Style</license>
 	<maturity>2</maturity>
 
-	<provides url="xowiki" version="5.10.1d26"/>
+	<provides url="xowiki" version="5.10.1d27"/>
 	<requires url="xotcl-core" version="5.10.1d7"/>
 	<requires url="acs-datetime" version="5.9.1"/>
 	<requires url="acs-kernel" version="5.10.0"/>
Index: openacs-4/packages/xowiki/catalog/xowiki.de_DE.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/catalog/xowiki.de_DE.ISO-8859-1.xml,v
diff -u -r1.47.2.21 -r1.47.2.22
--- openacs-4/packages/xowiki/catalog/xowiki.de_DE.ISO-8859-1.xml	26 Jan 2022 10:34:55 -0000	1.47.2.21
+++ openacs-4/packages/xowiki/catalog/xowiki.de_DE.ISO-8859-1.xml	14 Apr 2022 10:14:43 -0000	1.47.2.22
@@ -197,7 +197,8 @@
   <msg key="Page-publish_date">Ver�ffentlichungsdatum</msg>
   <msg key="Page-text">Inhalt</msg>
   <msg key="Page-title">Titel der Seite</msg>
-  <msg key="Page-validate_name">Another item with the name &#39;%value%&#39; exists already in this folder</msg>
+  <msg key="Page-validate_name">%errorMsg%</msg>
+  <msg key="Page-validate_name-duplicate_item">Another item with the name &#39;%value%&#39; exists already in this folder</msg>
   <msg key="Page-validate_page_order">Page Order ung�ltig, nur Buchstaben, Ziffern, Punkte und Unterstrich sind erlaubt.</msg>
   <msg key="page_kind">Art</msg>
   <msg key="page_title">Seitentitel</msg>
Index: openacs-4/packages/xowiki/catalog/xowiki.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/catalog/xowiki.en_US.ISO-8859-1.xml,v
diff -u -r1.71.2.26 -r1.71.2.27
--- openacs-4/packages/xowiki/catalog/xowiki.en_US.ISO-8859-1.xml	26 Jan 2022 10:34:55 -0000	1.71.2.26
+++ openacs-4/packages/xowiki/catalog/xowiki.en_US.ISO-8859-1.xml	14 Apr 2022 10:14:43 -0000	1.71.2.27
@@ -208,7 +208,8 @@
   <msg key="Page-text">Content</msg>
   <msg key="Page-title">Page Title</msg>
   <msg key="Page-validate_form_constraints">%errorMsg%</msg>
-  <msg key="Page-validate_name">Another item with the name &#39;%value%&#39; exists already in this folder</msg>
+  <msg key="Page-validate_name">%errorMsg%</msg>
+  <msg key="Page-validate_name-duplicate_item">Another item with the name &#39;%value%&#39; exists already in this folder</msg>
   <msg key="Page-validate_page_order">Page Order invalid; might only contain upper and lowercase letters, underscore, digits and dots</msg>
   <msg key="page_kind">Type</msg>
   <msg key="Page_pretty_name">XoWiki Page</msg>
Index: openacs-4/packages/xowiki/catalog/xowiki.es_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/catalog/xowiki.es_ES.ISO-8859-1.xml,v
diff -u -r1.16.2.7 -r1.16.2.8
--- openacs-4/packages/xowiki/catalog/xowiki.es_ES.ISO-8859-1.xml	15 Jan 2022 16:16:04 -0000	1.16.2.7
+++ openacs-4/packages/xowiki/catalog/xowiki.es_ES.ISO-8859-1.xml	14 Apr 2022 10:14:43 -0000	1.16.2.8
@@ -213,7 +213,8 @@
   <msg key="Page-text">Contenido</msg>
   <msg key="Page-title">T�tulo de la P�gina</msg>
   <msg key="Page-validate_form_constraints"> %errorMsg% </msg>
-  <msg key="Page-validate_name">Otro elemento con el valor &#39;%value%&#39; ya existe en �sta carpeta</msg>
+  <msg key="Page-validate_name">%errorMsg%</msg>
+  <msg key="Page-validate_name-duplicate_item">Otro elemento con el valor &#39;%value%&#39; ya existe en �sta carpeta</msg>
   <msg key="Page-validate_page_order">Orden de p�gina no v�lido: s�lo puede contener letras, gui�n bajo, d�gitos y puntos</msg>
   <msg key="page_kind">Tipo</msg>
   <msg key="Page_pretty_name">P�gina XoWiki</msg>
Index: openacs-4/packages/xowiki/catalog/xowiki.it_IT.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/catalog/xowiki.it_IT.ISO-8859-1.xml,v
diff -u -r1.3.2.10 -r1.3.2.11
--- openacs-4/packages/xowiki/catalog/xowiki.it_IT.ISO-8859-1.xml	8 Feb 2022 10:11:49 -0000	1.3.2.10
+++ openacs-4/packages/xowiki/catalog/xowiki.it_IT.ISO-8859-1.xml	14 Apr 2022 10:14:43 -0000	1.3.2.11
@@ -213,7 +213,8 @@
   <msg key="Page-text">Contenuto</msg>
   <msg key="Page-title">Titolo Pagina</msg>
   <msg key="Page-validate_form_constraints">%errorMsg%</msg>
-  <msg key="Page-validate_name">Esiste gi� un altro oggetto di nome &#39;%value%&#39; in questa cartella</msg>
+  <msg key="Page-validate_name">%errorMsg%</msg>
+  <msg key="Page-validate_name-duplicate_item">Esiste gi� un altro oggetto di nome &#39;%value%&#39; in questa cartella</msg>
   <msg key="Page-validate_page_order">Ordine Pagina non valido; pu� contenere solo caratteri maiuscoli e minuscoli, underscore, cifre e punti</msg>
   <msg key="page_kind">Tipo</msg>
   <msg key="Page_pretty_name">Pagina XoWiki</msg>
Index: openacs-4/packages/xowiki/catalog/xowiki.ru_RU.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/catalog/xowiki.ru_RU.utf-8.xml,v
diff -u -r1.1.4.2 -r1.1.4.3
--- openacs-4/packages/xowiki/catalog/xowiki.ru_RU.utf-8.xml	15 Jan 2022 16:16:04 -0000	1.1.4.2
+++ openacs-4/packages/xowiki/catalog/xowiki.ru_RU.utf-8.xml	14 Apr 2022 10:14:43 -0000	1.1.4.3
@@ -175,7 +175,8 @@
   <msg key="Page-text">Содержание</msg>
   <msg key="Page-title">Наименование страницы</msg>
   <msg key="Page-validate_form_constraints">%errorMsg%</msg>
-  <msg key="Page-validate_name">Другой элемент с наименование  '%value%' уже существует в этой директории</msg>
+  <msg key="Page-validate_name">%errorMsg%</msg>
+  <msg key="Page-validate_name-duplicate_item">Другой элемент с наименование '%value%' уже существует в этой директории</msg>
   <msg key="Page-validate_page_order">Недопустимый порядок страниц; может содержать заглавные и строчные буквы, подчёркивание, цифры и точки</msg>
   <msg key="page_kind">Тип</msg>
   <msg key="Page_pretty_name">XoWiki страница</msg>
Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.147.2.22 -r1.147.2.23
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	4 Mar 2022 10:53:28 -0000	1.147.2.22
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	14 Apr 2022 10:14:43 -0000	1.147.2.23
@@ -24,8 +24,10 @@
         {f.description "="}
         {f.nls_language "="}
         {validate {
-          {name {\[::xowiki::validate_name\]} {Another item with this name exists \
-                already in this folder}}
+          {name {\[::xowiki::validate_name\]}
+            {Another item with this name exists already in this folder} }
+          {name {[string length \$name] < 4}
+            {The name is too long.  Please  enter a value of at most 4000 characters long} }
           {page_order {\[::xowiki::validate_form_field page_order\]} {Page Order invalid; \
                 might only contain upper and lowercase letters, underscore, digits and dots}}
         }}
Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.542.2.153 -r1.542.2.154
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	9 Apr 2022 11:00:45 -0000	1.542.2.153
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	14 Apr 2022 10:14:43 -0000	1.542.2.154
@@ -2913,12 +2913,31 @@
     upvar nls_language nls_language
     set success [::xowiki::validate_name [self]]
     if {$success} {
-      # set the instance variable with a potentially prefixed name
-      # the classical validators do just an upvar
+      set actual_length [string length $name]
+      set max_length 400
+      if {$actual_length > $max_length} {
+        set errorMsg [_ acs-tcl.lt_name_is_too_long__Ple \
+                          [list name $name max_length $max_length actual_length $actual_length]]
+        set success 0
+      }
+    } else {
+      set errorMsg [_ xowiki.Page-validate_name-duplicate_item [list value $name]]
+    }
+
+    if {$success} {
+      #
+      # Set the instance variable with a potentially prefixed
+      # name. The classical validators (like xowiki::validate_name) do
+      # just an upvar. Therefore, the "name" value is already
+      # normalized and prefixed.
+      #
       set :name $name
+    } else {
+      uplevel [list set errorMsg $errorMsg]
     }
     return $success
   }
+
   Page instproc validate=page_order {value} {
     if {[info exists :page_order]} {
       set page_order [string trim $value " ."]