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 -N -r1.5.2.3 -r1.5.2.4
--- openacs-4/packages/file-storage/www/copy.tcl	13 Apr 2006 00:55:12 -0000	1.5.2.3
+++ openacs-4/packages/file-storage/www/copy.tcl	2 May 2006 12:04:17 -0000	1.5.2.4
@@ -58,7 +58,8 @@
         db_transaction {
             if {![string equal $type "folder"] } {
                 set file_rev_id [db_exec_plsql copy_item {}]
-		callback fs::file_revision_new -package_id $package_id -file_id $object_id -parent_id $folder_id
+		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
             } else {
                 db_exec_plsql copy_folder {}
             }