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.38 -r1.39
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	6 Feb 2004 20:26:50 -0000	1.38
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	15 Feb 2004 01:41:16 -0000	1.39
@@ -204,29 +204,8 @@
     # this isn't a problem in resolving URLs because we know which
     # root folder is associated with a site_node/package_id
     
-    set name "file-storage-${package_id}"
-    fs::new_root_folder \
-	-package_id $package_id \
-	-pretty_name $sn(instance_name) \
-	-name $name
-}
-
-ad_proc -public fs::new_root_folder {
-    {-package_id ""}
-    {-pretty_name ""}
-    {-name ""}
-    {-description ""}
-} {
-    Create a root folder for a package instance.
-
-    @param package_id Package instance associated with this root folder
-
-    @return folder_id of the new root folder
-} {
-    if {[empty_string_p $package_id]} {
-	set package_id [ad_conn package_id]
-    }
-
+    set label $sn(instance_name)
+    set name "file-storage_${package_id}"
     return [db_exec_plsql new_root_folder {}]
 }