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.97 -r1.98
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	14 Nov 2017 17:03:24 -0000	1.97
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	15 Nov 2017 14:35:30 -0000	1.98
@@ -54,7 +54,7 @@
 
     <fullquery name="dotlrn_community::check_community_key_valid_p.collision_check">
         <querytext>
-          select 1 where exists (
+          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)
@@ -170,7 +170,7 @@
 
     <fullquery name="dotlrn_community::member_p.select_count_membership">
         <querytext>
-            select 1 where exists (select 1
+            select 1 from dual where exists (select 1
                           from dotlrn_member_rels_approved
                           where community_id = :community_id
                           and user_id = :user_id)
@@ -179,7 +179,7 @@
 
     <fullquery name="dotlrn_community::member_pending_p.is_pending_membership">
         <querytext>
-            select 1 where exists (select 1
+            select 1 from dual where exists (select 1
                           from dotlrn_member_rels_full
                           where community_id = :community_id
                           and user_id = :user_id
@@ -243,7 +243,7 @@
 
     <fullquery name="dotlrn_community::has_subcommunity_p_not_cached.select_subcomm_check">
         <querytext>
-            select 1 where exists (select 1
+            select 1 from dual where exists (select 1
                           from dotlrn_communities
                           where parent_community_id = :community_id)
         </querytext>