Index: openacs-4/packages/file-storage/www/file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/file-storage/www/file.tcl	13 Jan 2005 13:58:13 -0000	1.23
+++ openacs-4/packages/file-storage/www/file.tcl	2 Mar 2005 00:43:53 -0000	1.24
@@ -47,7 +47,7 @@
 set actions [list "[_ file-storage.Upload_Revision]" file-add?[export_vars [list file_id return_url]] "Upload a new version of this file" \
 		 "[_ file-storage.Rename_File]" file-edit?[export_vars file_id] "Rename file" \
 		 "[_ file-storage.Copy_File]" file-copy?[export_vars file_id] "Copy file" \
-		 "[_ file-storage.Move_File]" file-move?[export_vars file_id] "Move file" \
+		 "[_ file-storage.Move_File]" move?object_id=$file_id "Move file" \
 		 "[_ file-storage.Delete_File]" file-delete?[export_vars file_id] "Delete file"]
 
 if {[string equal $delete_p "t"]} {