Index: openacs-4/packages/file-storage/www/version-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/version-delete.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/file-storage/www/version-delete.tcl	12 Jun 2015 08:45:46 -0000	1.14
+++ openacs-4/packages/file-storage/www/version-delete.tcl	27 Jun 2015 21:41:49 -0000	1.15
@@ -38,7 +38,7 @@
 set context [fs_context_bar_list -final [_ file-storage.Delete_Version] $item_id]
 
 set delete_message [_ file-storage.lt_Are_you_sure_that_you]
-ad_form -export version_id -cancel_url "file?[export_vars {{file_id $item_id}}]" -form {
+ad_form -export version_id -cancel_url [export_vars -base file {{file_id $item_id}}] -form {
     {delete_message:text(inform) {label $delete_message}}
 } -on_submit {