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 {