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.29.2.17 -r1.29.2.18
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	9 Mar 2022 13:44:33 -0000	1.29.2.17
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	9 Mar 2022 14:00:43 -0000	1.29.2.18
@@ -129,9 +129,12 @@
         #
         # This can happen only in error situations, when
         #
+        set class_info [expr {[info exists c] && [::nsf::is class $c] ?
+                              "using the class hierarchy [concat $c [$c info heritage]]" :
+                              ""}]
         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]]"
+            $class_info
         set permission ""
       }
     }