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.25.2.1 -r1.25.2.2
--- openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	2 Apr 2004 04:04:47 -0000	1.25.2.1
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	23 Apr 2004 00:24:57 -0000	1.25.2.2
@@ -162,14 +162,16 @@
 
   <fullquery name="fs::add_file.create_item">
     <querytext>
-      select file_storage.new_file (
-          :name,
-          :parent_id,
-	  :creation_user,
-          :creation_ip,
-          :indbp,
-          :item_id
-      )
+      	begin 
+          :1 := file_storage.new_file (
+                  folder_id => :parent_id,
+                  title => :name,
+		  creation_user => :creation_user,
+		  creation_ip => :creation_ip,
+		  item_id => :item_id,
+		  indb_p => 't'
+               );
+	end;
     </querytext>
   </fullquery>