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.10 -r1.234.2.11 --- openacs-4/packages/dotlrn/tcl/community-procs.tcl 24 Nov 2020 15:40:11 -0000 1.234.2.10 +++ openacs-4/packages/dotlrn/tcl/community-procs.tcl 24 Nov 2020 18:22:13 -0000 1.234.2.11 @@ -1225,9 +1225,9 @@ set errmsg "" set valid_p true - if {[regexp {\s+} $community_key]} { + if {![regexp {^(\w|_)+$} $community_key]} { set valid_p false - set errmsg [_ acs-templating.Invalid_url_element [list value $community_key]] + set errmsg [_ acs-tcl.lt_name_contains_invalid [list name $community_key]] } elseif {![db_0or1row collision_check { select 1 from dual where exists ( select 1 from dotlrn_communities_all