Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.50 -r1.51
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	18 Aug 2006 14:05:32 -0000	1.50
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	12 Sep 2006 12:04:36 -0000	1.51
@@ -364,7 +364,9 @@
  
     if {[info exists privilege]} {
       set granted [expr {$privilege eq "public" ? 1 :
-                 [permission::permission_p -object_id $package_id -privilege $privilege] }]
+                 [permission::permission_p \
+                      -object_id $package_id -privilege $privilege \
+                      -party_id [::xo::cc user_id]] }]
     } else {
       # determine privilege from policy
       set granted [$package_id permission_p $object $method]
@@ -913,7 +915,9 @@
   }
   Object instproc get_payload {var {default ""}} {
     set payload [self]::payload
-    if {![my isobject $payload]} {::xotcl::Object create $payload -requireNamespace}
+    if {![my isobject $payload]} {
+      ::xo::Context create $payload -requireNamespace
+    }
     expr {[$payload exists $var] ? [$payload set $var] : $default}
   }