Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.234.2.22 -r1.234.2.23
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	18 Oct 2021 11:56:46 -0000	1.234.2.22
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	17 Oct 2022 13:42:59 -0000	1.234.2.23
@@ -1267,15 +1267,15 @@
 
         if {[regexp {\s+} $community_key]} {
             set valid_p false
-            set errmsg [_ acs-tcl.lt_name_contains_invalid [list name $community_key]]
+            set errmsg [_ acs-tcl.lt_name_contains_invalid [list name [ns_quotehtml $community_key]]]
         } elseif {[db_0or1row collision_check {
           select 1 from dual where exists (
             select 1 from dotlrn_communities_all
              where (:parent_community_id is null or parent_community_id = :parent_community_id)
                and community_key = :community_key)
         }]} {
             set valid_p false
-            set errmsg [_ dotlrn.community_name_already_in_use [list community_key $community_key]]
+            set errmsg [_ dotlrn.community_name_already_in_use [list community_key [ns_quotehtml $community_key]]]
         }
 
         return [list \