Index: openacs-4/packages/file-manager/tcl/file-manager-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-manager/tcl/file-manager-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/file-manager/tcl/file-manager-procs.tcl	24 Mar 2004 22:54:27 -0000	1.5
+++ openacs-4/packages/file-manager/tcl/file-manager-procs.tcl	25 Apr 2018 19:47:47 -0000	1.6
@@ -51,7 +51,7 @@
 ad_proc fm_options_list { args } {
     Returns an options list to be displayed in the upper-right part of the page
 } {
-    set choices [list]
+    set choices {}
     foreach arg $args {
 	lappend choices "<a href=\"[lindex $arg 0]\">[lindex $arg 1]</a>"
     }
@@ -78,7 +78,7 @@
         regexp "$pageroot/(.+)" $path_full match path
 
         set local ""
-        set path_list   [list]
+        set path_list   {}
         set path_orig   [file split $path]
         set path_length [expr [llength $path_orig]-1]