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 -N -r1.20 -r1.21
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	31 May 2010 13:05:07 -0000	1.20
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	18 Jun 2010 10:26:59 -0000	1.21
@@ -152,7 +152,7 @@
 	complex {
 	  foreach {attribute privilege} $p break
 	  set id [$object set $attribute]
-	  #my msg "--p checking permission -object_id $id -privilege $privilege -party_id $user_id\
+	  #my msg "--p checking permission -object_id /$id/ -privilege $privilege -party_id $user_id\
 	  #	==> [::xo::cc permission -object_id $id -privilege $privilege -party_id $user_id]"
 	  return [::xo::cc permission -object_id $id -privilege $privilege -party_id $user_id]
 	}