Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	10 Dec 2001 19:33:04 -0000	1.15
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	10 Dec 2001 20:37:50 -0000	1.16
@@ -65,12 +65,14 @@
         :1 := file_storage.new_root_folder(:package_id);
 	end;"]
 
+        set community_name [dotlrn_community::get_community_name $community_id]
+
 	# Set up public folder
 	set public_folder_id [db_exec_plsql fs_public_folder "
 	begin
 	:1 := file_storage.new_folder (
 	name => 'public',
-	folder_name => 'Public',
+	folder_name => ' :community_name Public',
 	parent_id => :folder_id,
 	creation_user => :user_id,
 	creation_ip => :ip);