Index: openacs-4/packages/file-storage/lib/folder-links.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/lib/folder-links.tcl,v
diff -u -N -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/file-storage/lib/folder-links.tcl	11 Feb 2006 19:38:45 -0000	1.1.2.2
+++ openacs-4/packages/file-storage/lib/folder-links.tcl	31 Mar 2006 03:39:02 -0000	1.1.2.3
@@ -39,7 +39,9 @@
 } else {
     set folder_name [lang::util::localize [fs::get_object_name -object_id  $folder_id]]
 
-    foreach { package_id root_folder_id } [fs::get_folder_package_and_root $folder_id] break
+if {![info exists permission_p] || ! $permission_p eq 0} {
+    permission::require_permission -party_id $viewing_user_id -object_id $folder_id -privilege "read"
+}
 
     set fs_url [site_node::get_url_from_object_id -object_id $package_id]
     if {![string equal $root_folder_id $folder_id] && [string equal "/view/" $base_url]} {