Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.76 -r1.77
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	25 Apr 2018 19:47:47 -0000	1.76
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	9 May 2018 15:33:31 -0000	1.77
@@ -1623,7 +1623,7 @@
 	set fs_url [ad_conn package_url]
     }
     set selected_found_p 0
-    set categories {}
+    set categories [list]
     foreach category_id [category::get_mapped_categories $object_id] {
 	if { $category_id eq $selected_category_id } {
 	    set selected_found_p 1