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.22.2.1 -r1.22.2.2
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	17 Sep 2013 17:49:24 -0000	1.22.2.1
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	11 Feb 2014 11:53:09 -0000	1.22.2.2
@@ -96,6 +96,7 @@
   }
 
   Policy instproc get_permission {{-check_classes true} object method} {
+    # ns_log notice "[self] [self proc] [self args] // object=$object"
     set permission ""
     set o [self]::[namespace tail $object]
     set key require_permission($method)
@@ -105,6 +106,7 @@
       set permission [$o set default_permission]
     } elseif {$check_classes} {
       # we have no object specific policy information, check the classes
+      #ns_log notice "---check [list $object info class]"
       set c [$object info class]
       foreach class [concat $c [$c info heritage]] {
 	set c [self]::[namespace tail $class]
@@ -214,4 +216,4 @@
     return $allowed
   }
 
-}
\ No newline at end of file
+}