Index: openacs-4/packages/acs-subsite/www/permissions/grant.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/grant.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/acs-subsite/www/permissions/grant.tcl	25 Apr 2018 19:23:26 -0000	1.19
+++ openacs-4/packages/acs-subsite/www/permissions/grant.tcl	26 Apr 2018 08:56:37 -0000	1.20
@@ -34,7 +34,7 @@
 # Initialize the $hierarchy datastructure which is a list of
 # lists. The inner lists consist of two elements: 1. level,
 # 2. privilege
-set hierarchy [list]
+set hierarchy {}
 foreach privilege $existing_privs {
     lappend hierarchy [list 0 $privilege]
 }