Index: openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	20 Feb 2002 16:39:39 -0000	1.3
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	21 Feb 2002 20:06:27 -0000	1.4
@@ -7,7 +7,9 @@
         <querytext>
             begin
                 :1 := file_storage.new_root_folder(
-                    package_id => :package_id
+                    package_id => :package_id,
+                    folder_name => :pretty_name,
+                    description => :description
                 );
             end;
         </querytext>