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.22 -r1.23
--- openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	15 Dec 2003 11:21:04 -0000	1.22
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	15 Feb 2004 01:41:16 -0000	1.23
@@ -3,13 +3,13 @@
 <queryset>
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-    <fullquery name="fs::new_root_folder.new_root_folder">
+    <fullquery name="fs::after_mount.new_root_folder">
         <querytext>
             begin
                 :1 := file_storage.new_root_folder(
-                    package_id => :package_id,
-                    folder_name => :pretty_name,
-                    description => :description
+	 	    url => :name,
+		    package_id => :package_id,
+                    label => :label
                 );
             end;
         </querytext>