Index: openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/acs-kernel-procs.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.xql	17 May 2003 10:04:18 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.xql	7 Aug 2017 23:47:59 -0000	1.5
@@ -1,21 +1,6 @@
 <?xml version="1.0"?>
 <queryset>
 
-<fullquery name="ad_acs_administrator_exists_p.admin_exists_p">      
-      <querytext>
-      
-        select 1 as admin_exists_p
-        from dual
-        where exists (select 1
-                      from all_object_party_privilege_map m, users u, acs_magic_objects amo
-                      where m.object_id = amo.object_id
-                        and amo.name = 'security_context_root'
-                        and m.party_id = u.user_id
-                        and m.privilege = 'admin')
-    
-      </querytext>
-</fullquery>
-
 <fullquery name="ad_acs_admin_node.acs_admin_node_p">      
       <querytext>