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.103 -r1.104
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	12 Dec 2007 16:44:08 -0000	1.103
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	14 Dec 2007 10:24:51 -0000	1.104
@@ -217,6 +217,7 @@
 
     set party_id [::xo::cc 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] }]