Index: openacs-4/packages/xotcl-core/tcl/context-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/context-procs.tcl,v
diff -u -r1.32 -r1.33
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	27 Feb 2008 16:44:25 -0000	1.32
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	13 Mar 2008 12:06:36 -0000	1.33
@@ -297,6 +297,9 @@
     return [my set $key]
   }
 
+  ConnectionContext instproc role=all {-user_id:required -package_id} {
+    return 1
+  }
   ConnectionContext instproc role=swa {-user_id:required -package_id} {
     return [my cache [list acs_user::site_wide_admin_p -user_id $user_id]]
   }