Index: openacs-4/packages/file-manager/www/file-tree.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-manager/www/file-tree.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/file-manager/www/file-tree.tcl	11 Dec 2003 21:40:03 -0000	1.3
+++ openacs-4/packages/file-manager/www/file-tree.tcl	25 Apr 2018 19:47:47 -0000	1.4
@@ -14,7 +14,7 @@
 
 proc get_dirs { path } {
 
-  set files [list]
+  set files {}
 
   catch {
     foreach file [lsort [glob "$path/*"]] {