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.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.xql	28 Nov 2001 18:39:39 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.xql	18 Feb 2003 20:55:00 -0000	1.3
@@ -4,13 +4,14 @@
 <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
-		      where m.object_id = 0
-		      and m.party_id = u.user_id
-		      and m.privilege = 'admin')
+        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>