Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-oracle.xql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-oracle.xql	18 Mar 2002 21:59:14 -0000	1.6
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-oracle.xql	27 Mar 2002 19:13:09 -0000	1.7
@@ -33,9 +33,7 @@
         <querytext>
             select count(*)
             from dual
-            where exists (select 1
-                          from dual
-                          where 't' = acs_permission.permission_p(:object_id, :party_id, :privilege))
+            where 't' = acs_permission.permission_p(:object_id, :party_id, :privilege)
         </querytext>
     </fullquery>
 
Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-postgresql.xql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-postgresql.xql	25 Mar 2002 07:08:19 -0000	1.6
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-postgresql.xql	27 Mar 2002 19:13:09 -0000	1.7
@@ -26,9 +26,7 @@
         <querytext>
             select count(*)
             from dual
-            where exists (select 1
-                          from dual
-                          where 't' = acs_permission__permission_p(:object_id, :party_id, :privilege))
+            where 't' = acs_permission__permission_p(:object_id, :party_id, :privilege)
         </querytext>
     </fullquery>