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.129 -r1.130
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	17 Sep 2008 10:14:20 -0000	1.129
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	25 Sep 2008 07:17:56 -0000	1.130
@@ -14,7 +14,7 @@
       -package_key xowiki \
       -parameter {
 	{folder_id 0}
-	{force_refresh_login true}
+	{force_refresh_login false}
       }
   # {folder_id "[::xo::cc query_parameter folder_id 0]"}
 
@@ -345,12 +345,12 @@
       regsub -all & $computed_link "&" computed_link
     }
 
-    set party_id [::xo::cc user_id]
+    #set party_id [::xo::cc user_id]
+    set party_id [::xo::cc set untrusted_user_id]
     if {[info exists privilege]} {
       #my log "-- checking priv $privilege for [self args]"
       set granted [expr {$privilege eq "public" ? 1 :
-                  [permission::permission_p \
-                      -object_id $id -privilege $privilege -party_id $party_id] }]
+                         [::xo::cc permission -object_id $id -privilege $privilege -party_id $party_id] }]
     } else {
       # determine privilege from policy
       if {[catch {