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.67.2.4 -r1.67.2.5 --- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl 11 Sep 2013 10:33:43 -0000 1.67.2.4 +++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl 11 Sep 2013 13:07:22 -0000 1.67.2.5 @@ -1160,7 +1160,7 @@ if {[string equal $root_folder_id $item_id]} { set url_stub "" } else { - set url_stub [content::item::get_virtual_path -item_id $root_folder_id $item_id] + set url_stub [content::item::get_virtual_path -root_folder_id $root_folder_id -item_id $item_id] } set package_url [apm_package_url_from_id $package_id] Index: openacs-4/packages/file-storage/tcl/file-storage-rss-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-rss-procs.tcl,v diff -u -r1.3.2.1 -r1.3.2.2 --- openacs-4/packages/file-storage/tcl/file-storage-rss-procs.tcl 11 Sep 2013 10:33:43 -0000 1.3.2.1 +++ openacs-4/packages/file-storage/tcl/file-storage-rss-procs.tcl 11 Sep 2013 13:07:22 -0000 1.3.2.2 @@ -75,7 +75,7 @@ # But folder names can contain spaces, so we'll urlencode just in case. set pretty_folder_url "${ad_url}${base_url}" if { $folder_id != $root_folder_id } { - set url_stub [content::item::get_virtual_path -item_id $root_folder_id $folder_id] + set url_stub [content::item::get_virtual_path -root_folder_id $root_folder_id -item_id $folder_id] set stub_parts [split $url_stub /] set enc_url_stub_list [list] foreach part $stub_parts {