Index: openacs-4/packages/file-storage/sql/oracle/file-storage-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/sql/oracle/file-storage-package-create.sql,v
diff -u -r1.17.2.1 -r1.17.2.2
--- openacs-4/packages/file-storage/sql/oracle/file-storage-package-create.sql	16 Feb 2022 12:15:25 -0000	1.17.2.1
+++ openacs-4/packages/file-storage/sql/oracle/file-storage-package-create.sql	16 Feb 2022 12:26:02 -0000	1.17.2.2
@@ -152,8 +152,8 @@
 show errors
 
 
-create or replace package body file_storage
-as
+CREATE OR REPLACE PACKAGE BODY file_storage
+AS
 
     function get_root_folder(
         package_id in apm_packages.package_id%TYPE
@@ -338,8 +338,8 @@
         and r.revision_id = i.live_revision
         and i.item_id = file_storage.copy_file.file_id;
 
-	v_filename := nvl(copy.name, v_filename);
-	v_title    := nvl(copy.title, v_title);
+	v_filename := nvl(copy_file.name, v_filename);
+	v_title    := nvl(copy_file.title, v_title);
 
         -- We should probably use the copy functions of CR
         -- when we optimize this function
@@ -626,7 +626,7 @@
         );
     end delete_folder;
 
-end file_storage;
+END file_storage;
 /
 show errors;
 
Index: openacs-4/packages/file-storage/sql/oracle/upgrade/upgrade-5.9.1b3-5.9.1b4.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/sql/oracle/upgrade/upgrade-5.9.1b3-5.9.1b4.sql,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/file-storage/sql/oracle/upgrade/upgrade-5.9.1b3-5.9.1b4.sql	7 Aug 2017 23:48:11 -0000	1.2
+++ openacs-4/packages/file-storage/sql/oracle/upgrade/upgrade-5.9.1b3-5.9.1b4.sql	16 Feb 2022 12:26:02 -0000	1.2.2.1
@@ -185,8 +185,8 @@
         and r.revision_id = i.live_revision
         and i.item_id = file_storage.copy_file.file_id;
 
-	v_filename := nvl(copy.name, v_filename);
-	v_title    := nvl(copy.title, v_title);
+	v_filename := nvl(copy_file.name, v_filename);
+	v_title    := nvl(copy_file.title, v_title);
 
         -- We should probably use the copy functions of CR
         -- when we optimize this function