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.7 -r1.29.2.8
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	5 Aug 2019 12:27:12 -0000	1.29.2.7
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	11 May 2020 19:13:32 -0000	1.29.2.8
@@ -12,7 +12,7 @@
 
   Policy instproc defined_methods {class} {
     set c [self]::$class
-    expr {[:isclass $c] ? [$c array names require_permission] : [list]}
+    expr {[:isclass $c] ? [$c array names require_permission] : {}}
   }
 
   Policy instproc check_privilege {