Index: openacs-4/packages/lors/tcl/lors-cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-cr-procs.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/lors/tcl/lors-cr-procs.tcl	3 Dec 2008 12:36:42 -0000	1.8
+++ openacs-4/packages/lors/tcl/lors-cr-procs.tcl	25 Apr 2018 19:47:47 -0000	1.9
@@ -32,7 +32,7 @@
 
     @param fs_dir File System directory
 } {
-    set files [list]
+    set files {}
     foreach f [glob -no complain [file join $fs_dir * ]] {
         set type [file type $f]
         switch $type {
@@ -54,7 +54,7 @@
 
     @param fs_dir File System directory
 } {
-    set directories [list]
+    set directories {}
     foreach dir [glob -no complain [file join $fs_dir * ]] {
         set type [file type $dir]
         switch $type {
@@ -143,7 +143,7 @@
     # Get the ip
     set creation_ip [ad_conn peeraddr]
 
-    set retlist [list]
+    set retlist {}
     foreach fle $files {
 
         regexp {[^//\\]+$} $fle filename