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.4 -r1.5
--- openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl	26 Jan 2005 00:43:54 -0000	1.4
+++ openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl	22 Feb 2005 18:16:52 -0000	1.5
@@ -128,11 +128,10 @@
 ad_proc -private ::install::xml::action::file-storage-folder { node } {
     Create a file storage folder from install.xml
 } {
-    set url [apm_required_attribute_value $node url]
     set name [apm_required_attribute_value $node name]
     set pretty_name [apm_required_attribute_value $node pretty-name]
 
-    set package_id [site_node::get_element -url $url -element package_id]
+    set package_id [install::xml::object_id::package $node]
 
     set root [fs::get_root_folder -package_id $package_id]