Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.47 -r1.48
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	9 Mar 2007 16:33:11 -0000	1.47
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	9 Mar 2007 18:29:50 -0000	1.48
@@ -883,7 +883,13 @@
     }
   }
 
+  Policy policy4 -contains {
+    ::xotcl::Object function -array set require_permission {
+      f none
+    } -set default_permission login
+  }
   
+  #my log "--set granted [policy4 check_permissions -user_id 0 -package_id 0 function f]"
 }