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.7 -r1.25.2.8
--- openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	9 Aug 2004 21:48:37 -0000	1.25.2.7
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	11 Aug 2004 05:47:00 -0000	1.25.2.8
@@ -207,21 +207,22 @@
   <fullquery name="fs::delete_file.delete_file">      
       <querytext>
 	
+	
 	begin
-		file_storage.delete_file(
+	   :1 := file_storage.delete_file(
 			:item_id
 			);
 	end;
 
       </querytext>
   </fullquery>
 
-  <fullquery name="fs::delete_file.delete_file">      
+  <fullquery name="fs::delete_folder.delete_folder">      
       <querytext>
-		file_storage.delete_folder (
-			:folder_id,
-                        :cascade_p
-			)
+
+	begin
+	        file_storage.delete_folder(:folder_id, :cascade_p );
+	end;
       </querytext>
   </fullquery>