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.15 -r1.29.2.16
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	22 Feb 2022 09:00:10 -0000	1.29.2.15
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	22 Feb 2022 17:25:42 -0000	1.29.2.16
@@ -114,7 +114,6 @@
       # 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]
@@ -126,6 +125,15 @@
           break
         }
       }
+      if {![info exists permission]} {
+        #
+        # This can happen only in error situations, when
+        #
+        ad_log error "get_permission could not find an approriate class for checking" \
+            "permissions for '$object' and '$method' in policy [self]" \
+            "using the class hierarchy [concat $c [$c info heritage]]"
+        set set permission ""
+      }
     }
     return $permission
   }