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 -N -r1.234.2.12 -r1.234.2.13
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	24 Nov 2020 18:38:47 -0000	1.234.2.12
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	25 Nov 2020 14:35:27 -0000	1.234.2.13
@@ -1225,10 +1225,10 @@
         set errmsg ""
         set valid_p true
 
-        if {![regexp {\s+} $community_key]} {
+        if {[regexp {\s+} $community_key]} {
             set valid_p false
             set errmsg [_ acs-tcl.lt_name_contains_invalid [list name $community_key]]
-        } elseif {![db_0or1row collision_check {
+        } 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)