Index: openacs-4/packages/ajax-filestorage-ui/lib/ajaxfs-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajax-filestorage-ui/lib/ajaxfs-include.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/ajax-filestorage-ui/lib/ajaxfs-include.tcl	13 Dec 2007 05:33:42 -0000	1.4
+++ openacs-4/packages/ajax-filestorage-ui/lib/ajaxfs-include.tcl	19 Dec 2007 13:40:05 -0000	1.5
@@ -73,8 +73,8 @@
         lappend options "pathToFolder: new Array([ajaxfs::generate_path -folder_id $folder_id])"
     }
 
-    if { [exists_and_not_null public] } {
-        lappend options "ispublic:$public"
+    if { [exists_and_not_null public] || [permission::permission_p -no_login -no_cache -party_id [db_string "get_public" "select object_id from acs_magic_objects where name ='the_public'"] -object_id $package_id -privilege "read"] } {
+        lappend options "ispublic:true"
     }
 
     if { [exists_and_not_null layoutdiv] } {