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 -r1.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl	31 Jan 2003 08:37:39 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl	18 Feb 2003 20:54:59 -0000	1.6
@@ -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]
 }