Index: openacs-4/packages/xotcl-core/tcl/policy-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/policy-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	12 Jul 2007 17:35:48 -0000	1.10
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	2 Aug 2007 12:09:14 -0000	1.11
@@ -17,10 +17,11 @@
 
   Policy instproc check_privilege {{-login true} -user_id -package_id privilege object method} {
     set allowed -1   ;# undecided
-    if {[acs_user::site_wide_admin_p -user_id $user_id]} {
+    if {[acs_user::site_wide_admin_p -user_id $user_id] && $privilege ne "nobody"} {
       return 1
     }
     switch $privilege {
+      nobody {return 0}
       none  {return 1}
       login {
         if {$login} {