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.69.2.4 -r1.69.2.5
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	21 Apr 2017 20:04:34 -0000	1.69.2.4
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	24 May 2017 18:49:21 -0000	1.69.2.5
@@ -1471,6 +1471,7 @@
     @creation-date 2005-02-28
 } { 
     set folder_id $object_id
+    set package_id [lindex [fs::get_folder_package_and_root $folder_id] 0]
     return "[ad_url][db_string select_fs_package_url {}]index?folder_id=$folder_id"
 }