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.13 -r1.29.2.14
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	28 Jan 2022 22:33:34 -0000	1.29.2.13
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	22 Feb 2022 08:51:21 -0000	1.29.2.14
@@ -99,6 +99,7 @@
   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]} {