Index: openacs-4/packages/dotlrn/tcl/community-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.xql,v
diff -u -r1.93 -r1.94
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	14 Nov 2017 16:12:38 -0000	1.93
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	14 Nov 2017 16:30:11 -0000	1.94
@@ -54,10 +54,10 @@
 
     <fullquery name="dotlrn_community::check_community_key_valid_p.collision_check">
         <querytext>
-          select 1 from dotlrn_communities_all
-           where (:parent_community_id is null or parent_community_id = :parent_community_id)
-             and community_key = :community_key
-           limit 1
+          select 1 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)
         </querytext>
     </fullquery>