Index: openacs-4/packages/attachments/www/file-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/file-add-2.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/attachments/www/file-add-2.tcl	6 Dec 2018 15:48:10 -0000	1.14
+++ openacs-4/packages/attachments/www/file-add-2.tcl	6 Dec 2018 22:05:05 -0000	1.15
@@ -45,6 +45,13 @@
     set filename $upload_file
 }
 
+set root_folder [attachments::get_root_folder]
+set fs_package_id [db_string get_fs_package_id {
+    select package_id
+    from fs_root_folders
+    where folder_id=:root_folder
+}]
+
 #db_transaction {
     set file_id [db_nextval "acs_object_id_seq"]
     fs::add_file \