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 -r1.7 -r1.8
--- openacs-4/packages/lors/tcl/lors-imscp-blackboard5-procs.tcl	25 Apr 2018 19:47:47 -0000	1.7
+++ openacs-4/packages/lors/tcl/lors-imscp-blackboard5-procs.tcl	9 May 2018 15:33:32 -0000	1.8
@@ -116,7 +116,7 @@
     if {![empty_string_p flags_node]} {
 
         set items [$navigation child all ITEM]
-        set item_list {}
+        set item_list [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 {}
-    set emails {}
+    set userlist [list]
+    set emails [list]
     foreach user [$usersnode child all USER] {
         set user_id [$user getAttribute id]
         set login_id [[$user getElementsByTagName LOGINID] getAttribute value]