Index: openacs-4/packages/lors-central/tcl/lors-central-imscp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/tcl/lors-central-imscp-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lors-central/tcl/lors-central-imscp-procs.tcl	17 May 2005 16:21:18 -0000	1.1
+++ openacs-4/packages/lors-central/tcl/lors-central-imscp-procs.tcl	17 May 2018 08:14:04 -0000	1.2
@@ -197,7 +197,7 @@
         if { [llength $item] > 13} {
             set subitem [lors_central::imscp::addItems -itm_folder_id $itm_folder_id \
                              -org_id $p_org_id [lindex $item 13] $item_id $tmp_dir]
-            set retlist [concat $retlist $subitem]
+            lappend retlist {*}$subitem
         }
     }
     return $retlist
Index: openacs-4/packages/lors-central/www/course-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/course-add-3.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/lors-central/www/course-add-3.tcl	9 May 2018 15:33:32 -0000	1.5
+++ openacs-4/packages/lors-central/www/course-add-3.tcl	17 May 2018 08:16:37 -0000	1.6
@@ -139,7 +139,7 @@
                           -files [lors::cr::has_files -fs_dir $fs_dir]]
 
 
-        set all_files [concat $all_files $filesx]
+        lappend all_files {*}$filesx
 
         # get all the directories and files under those dirs
 
@@ -199,7 +199,7 @@
 			# Add files to the CR 
 	
    	                set filesx [lors_central::cr::add_files -parent_id $new_cr_folder_id -files $files -indb_p $indb_p]
-                        set all_files [concat $all_files $filesx]
+                        lappend all_files {*}$filesx
                     }
 
                 }