Index: openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl	26 May 2005 08:28:45 -0000	1.8
+++ openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl	26 May 2005 12:23:35 -0000	1.9
@@ -211,7 +211,7 @@
 	set root_folder_id [fs::get_root_folder -package_id $fs_package_id]
 
 	set folder_id [fs::new_folder \
-			   -name $root_folder_id \
+			   -name $project_id \
 			   -pretty_name $pm_name \
 			   -parent_id $root_folder_id \
 			   -no_callback]