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.10 -r1.11
--- openacs-4/packages/file-storage/sql/oracle/file-storage-package-create.sql	19 Feb 2004 16:44:44 -0000	1.10
+++ openacs-4/packages/file-storage/sql/oracle/file-storage-package-create.sql	20 Feb 2004 23:46:17 -0000	1.11
@@ -205,7 +205,7 @@
         v_folder_id := content_folder.new(
             name => file_storage.new_root_folder.folder_url,
             label => file_storage.new_root_folder.folder_name,
-            context_id => file_storage.new_root_folder.package_id
+            context_id => file_storage.new_root_folder.package_id,
             description => file_storage.new_root_folder.description
         );
 
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.24 -r1.25
--- openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	19 Feb 2004 16:44:45 -0000	1.24
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	20 Feb 2004 23:46:19 -0000	1.25
@@ -3,13 +3,13 @@
 <queryset>
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-    <fullquery name="fs::after_mount.new_root_folder">
+    <fullquery name="fs::new_root_folder.new_root_folder">
         <querytext>
             begin
                 :1 := file_storage.new_root_folder(
-	 	    url => :name,
+	 	    folder_url => :name,
 		    package_id => :package_id,
-                    label => :pretty_name,
+                    folder_name => :pretty_name,
 		    description => :description
                 );
             end;