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.11 -r1.12
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	2 Aug 2007 12:09:14 -0000	1.11
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	3 Sep 2007 21:06:42 -0000	1.12
@@ -114,22 +114,22 @@
     if {$link ne ""} {
       set query [lindex [split $link ?] 1]
       set ctx [::xo::Context new -destroy_on_cleanup -actual_query $query]
-      $ctx  process_query_parameter
+      $ctx process_query_parameter
     }
 
     set permission [my get_permission $object $method]
-    #my log "--permission for o=$object, m=$method => $permission"
+    #my msg "--permission for o=$object, m=$method => $permission"
     if {$permission ne ""} {
       foreach {kind p} [my get_privilege -query_context $ctx $permission $object $method] break
-      #my log "--privilege = $p kind = $kind"
+      #my msg "--privilege = $p kind = $kind"
       switch $kind {
 	primitive {return [my check_privilege -login false \
 			       -package_id $package_id -user_id $user_id \
 			       $p $object $method]}
 	complex {
 	  foreach {attribute privilege} $p break
 	  set id [$object set $attribute]
-	  #my log "--p checking permission::permission_p -object_id $id -privilege $privilege"
+	  #my msg "--p checking permission::permission_p -object_id $id -privilege $privilege"
 	  return [::xo::cc permission -object_id $id -privilege $privilege -party_id $user_id]
 	}
       }