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.5 -r1.6
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	30 Mar 2007 19:29:56 -0000	1.5
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	11 Apr 2007 12:19:38 -0000	1.6
@@ -119,7 +119,7 @@
 	complex {
 	  foreach {attribute privilege} $p break
 	  set id [$object set $attribute]
-	  my log "--p checking permission::permission_p -object_id $id -privilege $privilege"
+	  #my log "--p checking permission::permission_p -object_id $id -privilege $privilege"
 	  return [::xo::cc permission -object_id $id -privilege $privilege -party_id $user_id]
 	}
       }
@@ -162,7 +162,7 @@
       }
     }
 
-    my log "--p enforce_permissions {$object $method} : $permission ==> $allowed"
+    #my log "--p enforce_permissions {$object $method} : $permission ==> $allowed"
 
     if {!$allowed} {
       ns_log notice "permission::require_permission: $user_id doesn't \