Index: openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl	9 May 2018 15:33:32 -0000	1.13
+++ openacs-4/packages/lors/tcl/lors-imscp-blackboard6-procs.tcl	15 Nov 2019 08:30:06 -0000	1.14
@@ -74,14 +74,14 @@
             set cc [concat $cc "[lors::imsmd::getAtt $itemx identifierref]"]
 
             # gets xml node
-            set cc [concat $cc $itemx]
+            lappend cc {*}$itemx
             set it_list [concat $it_list [list $cc]]
 
             set itemxx [$itemx child all item]
             if { ![empty_string_p $itemxx] } {
                 set it_list [concat $it_list [getItems $itemx]]
             }
-            set items [concat $items $cc]
+            lappend items {*}$cc
         }
     }
     return $it_list