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.4 -r1.5
--- openacs-4/packages/file-manager/www/file-tree.tcl	25 Apr 2018 19:47:47 -0000	1.4
+++ openacs-4/packages/file-manager/www/file-tree.tcl	9 May 2018 15:33:31 -0000	1.5
@@ -14,7 +14,7 @@
 
 proc get_dirs { path } {
 
-  set files {}
+  set files [list]
 
   catch {
     foreach file [lsort [glob "$path/*"]] {