Index: openacs-4/packages/file-storage/lib/folder-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/lib/folder-admin.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/file-storage/lib/folder-admin.tcl	8 Aug 2006 21:26:48 -0000	1.2
+++ openacs-4/packages/file-storage/lib/folder-admin.tcl	27 Oct 2014 16:41:31 -0000	1.3
@@ -1,5 +1,5 @@
 set admin_p [permission::permission_p -object_id $folder_id -party_id [ad_conn user_id] -privilege "admin"]
 set return_url [ad_return_url]
-foreach { package_id root_folder_id } [fs::get_folder_package_and_root $folder_id] break
+lassign [fs::get_folder_package_and_root $folder_id]  package_id root_folder_id 
 set fs_url [site_node::get_url_from_object_id -object_id $package_id]
 set folder_url [export_vars -base $fs_url {folder_id return_url}]
\ No newline at end of file