Index: openacs-4/packages/file-storage/www/copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/copy.tcl,v
diff -u -r1.5.2.4 -r1.5.2.5
--- openacs-4/packages/file-storage/www/copy.tcl	2 May 2006 12:04:17 -0000	1.5.2.4
+++ openacs-4/packages/file-storage/www/copy.tcl	5 May 2006 19:26:23 -0000	1.5.2.5
@@ -58,8 +58,7 @@
         db_transaction {
             if {![string equal $type "folder"] } {
                 set file_rev_id [db_exec_plsql copy_item {}]
-		set file_id [content::revision::item_id -revision_id $file_rev_id]
-		callback fs::file_revision_new -package_id $package_id -file_id $file_id -parent_id $folder_id
+		callback fs::file_revision_new -package_id $package_id -file_id $object_id -parent_id $folder_id
             } else {
                 db_exec_plsql copy_folder {}
             }