Index: openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl,v
diff -u -N -r1.3 -r1.3.4.1
--- openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl	21 Mar 2001 00:26:19 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl	11 Feb 2003 17:06:36 -0000	1.3.4.1
@@ -10,15 +10,7 @@
     @return 1 if a user with admin privileges exists, 0 otherwise.
 
 } {
-    return [db_string admin_exists_p {
-	select 1 as admin_exists_p
-	from dual
-	where exists (select 1
-		      from acs_object_party_privilege_map m, users u
-		      where m.object_id = 0
-		      and m.party_id = u.user_id
-		      and m.privilege = 'admin')
-    } -default 0]
+    return [db_string admin_exists_p {} -default 0]
 }