Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -N -r1.223 -r1.224
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	11 Apr 2018 10:12:52 -0000	1.223
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	25 Apr 2018 19:47:47 -0000	1.224
@@ -435,9 +435,9 @@
         set default_roles [concat {*}[get_default_roles -community_id $community_id]]
         set attributes [concat {*}[get_attributes -community_id $community_id]]
 
-        set roles [list]
+        set roles {}
         foreach {rel_type role pretty_name pretty_plural} $default_roles {
-            set new_role [list]
+            set new_role {}
 
             lappend new_role $rel_type
             lappend new_role $role
@@ -515,7 +515,7 @@
     ad_proc -public get_all_roles_as_options {} {
         return the list of roles used in dotLRN
     } {
-        set role_options [list]
+        set role_options {}
 
         foreach {rel_type role pretty_name pretty_plural} [concat {*}[get_all_roles]] {
             lappend role_options [list [lang::util::localize $pretty_name] $rel_type]
@@ -944,7 +944,7 @@
     } {
         Return a datasource of the communities that a user belongs to in a particular type
     } {
-        set list_of_communities [list]
+        set list_of_communities {}
 
         db_foreach select_communities {} {
             lappend list_of_communities [list $community_id $community_type $pretty_name $description [get_url -package_id $package_id]]
@@ -1454,7 +1454,7 @@
 
         @author Peter Marklund
     } {
-        set context [list]
+        set context {}
 
         if {[subcommunity_p -community_id $community_id]} {
             set parent_name [get_parent_name -community_id $community_id]