Index: openacs-4/packages/lors-central/tcl/lors-central-cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/tcl/lors-central-cr-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lors-central/tcl/lors-central-cr-procs.tcl	13 Apr 2007 23:26:25 -0000	1.2
+++ openacs-4/packages/lors-central/tcl/lors-central-cr-procs.tcl	25 Apr 2018 19:47:47 -0000	1.3
@@ -26,7 +26,7 @@
     # Get the ip
     set creation_ip [ad_conn peeraddr]
 
-    set retlist [list]
+    set retlist {}
     foreach fle $files {
 
 	regexp {[^//\\]+$} $fle filename