Index: openacs-4/packages/xowiki/www/xinha/file-selector.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/xinha/file-selector.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/xowiki/www/xinha/file-selector.tcl	23 Dec 2008 11:34:59 -0000	1.12
+++ openacs-4/packages/xowiki/www/xinha/file-selector.tcl	18 Mar 2010 10:03:56 -0000	1.13
@@ -96,7 +96,7 @@
   set root_folder_id [fs_get_root_folder -package_id $fs_package_id]
 }
 
-set fs_url [site_node::get_url_from_object_id -object_id $fs_package_id]
+set fs_url [lindex [site_node::get_url_from_object_id -object_id $fs_package_id] 0]
 
 # # Don't allow delete if root folder
 set root_folder_p [expr {$folder_id == $root_folder_id}]