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.29.2.14 -r1.29.2.15
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	22 Feb 2022 08:51:21 -0000	1.29.2.14
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	22 Feb 2022 09:00:10 -0000	1.29.2.15
@@ -99,7 +99,6 @@
   Policy instproc get_permission {{-check_classes true} object method} {
     # ns_log notice "[self] [self proc] [self args] // object=$object"
     set o [self]::[namespace tail $object]
-    set permission ""
     set key require_permission($method)
     if {[::nsf::is object $o]} {
       if {[$o exists $key]} {
@@ -110,8 +109,12 @@
         set permission ""
       }
     } elseif {$check_classes} {
-      # we have no object specific policy information, check the classes
+      #
+      # We have no object specific policy information, check the
+      # class tree up to the root.
+      #
       #ns_log notice "---check [list $object info class]"
+      set permission ""
       set c [$object info class]
       foreach class [concat $c [$c info heritage]] {
         set c [self]::[namespace tail $class]