Index: openacs-4/packages/lors/tcl/lors-imscp-blackboard5-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-imscp-blackboard5-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/lors/tcl/lors-imscp-blackboard5-procs.tcl	17 Nov 2008 13:35:03 -0000	1.6
+++ openacs-4/packages/lors/tcl/lors-imscp-blackboard5-procs.tcl	25 Apr 2018 19:47:47 -0000	1.7
@@ -116,7 +116,7 @@
     if {![empty_string_p flags_node]} {
 
         set items [$navigation child all ITEM]
-        set item_list [list]
+        set item_list {}
 
         foreach item $items {
             set item_value [lors::imsmd::getAtt $item value]
@@ -170,8 +170,8 @@
     set docx [dom parse [::tDOM::xmlReadFile $file]]
     set usersnode [$docx documentElement]
 
-    set userlist [list]
-    set emails [list]
+    set userlist {}
+    set emails {}
     foreach user [$usersnode child all USER] {
         set user_id [$user getAttribute id]
         set login_id [[$user getElementsByTagName LOGINID] getAttribute value]