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.20 -r1.21
--- openacs-4/packages/acs-subsite/www/permissions/grant.tcl	26 Apr 2018 08:56:37 -0000	1.20
+++ openacs-4/packages/acs-subsite/www/permissions/grant.tcl	9 May 2018 15:33:28 -0000	1.21
@@ -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 {}
+set hierarchy [list]
 foreach privilege $existing_privs {
     lappend hierarchy [list 0 $privilege]
 }
@@ -127,7 +127,7 @@
     -optional
 
 if { ![info exists privileges] } {
-    set privileges {}
+    set privileges [list]
 }
 
 # limit the size of the select widget to a number that should fit on a