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.49 -r1.50
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	8 Apr 2010 07:22:31 -0000	1.49
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	28 Apr 2010 12:17:19 -0000	1.50
@@ -141,7 +141,7 @@
 
 
   Context ad_instproc get_parameters {} {
-    Conveniance routine for includelets. It combines the actual
+    Convenience routine for includelets. It combines the actual
     parameters from the call in the page (highest priority) wit
     the values from the url (second priority) and the default
     values from the signature
Index: openacs-4/packages/xotcl-core/tcl/policy-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/policy-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	23 Mar 2009 11:29:00 -0000	1.18
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	28 Apr 2010 12:17:19 -0000	1.19
@@ -130,7 +130,7 @@
   } {
     if {![info exists user_id]} {set user_id [::xo::cc user_id]}
     if {![info exists package_id]} {set package_id [::xo::cc package_id]}
-
+    #my msg [info exists package_id]=>$package_id-[my exists logical_package_id]
     set ctx ""
     if {$link ne ""} {
       set query [lindex [split $link ?] 1]
@@ -140,6 +140,7 @@
 
     set permission [my get_permission $object $method]
     #my log "--permission for o=$object, m=$method => $permission"
+
     #my log "--     user_id=$user_id uid=[::xo::cc user_id] untrusted=[::xo::cc set untrusted_user_id]"
     if {$permission ne ""} {
       foreach {kind p} [my get_privilege -query_context $ctx $permission $object $method] break