Index: openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl,v
diff -u -r1.3.2.8 -r1.3.2.9
--- openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl	30 Nov 2004 20:34:11 -0000	1.3.2.8
+++ openacs-4/packages/file-storage/tcl/file-storage-dav-procs.tcl	1 Feb 2005 02:15:41 -0000	1.3.2.9
@@ -75,7 +75,7 @@
 	
 	set response [list 204]
     }
-
+    file delete $tmp_filename
     return $response
 
 }
Index: openacs-4/packages/file-storage/www/file-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-add.tcl,v
diff -u -r1.8.2.8 -r1.8.2.9
--- openacs-4/packages/file-storage/www/file-add.tcl	19 Aug 2004 19:21:52 -0000	1.8.2.8
+++ openacs-4/packages/file-storage/www/file-add.tcl	1 Feb 2005 02:15:42 -0000	1.8.2.9
@@ -153,19 +153,14 @@
 	    -title $this_title \
 	    -description $description \
 	    -package_id $package_id
-	incr i
-        ns_log notice "
-DB --------------------------------------------------------------------------------
-DB DAVE debugging /var/lib/aolserver/openacs-5-1/packages/file-storage/www/file-add.tcl
-DB --------------------------------------------------------------------------------
-DB i = '${i}'
-DB number_upload_files = '${number_upload_files}'
-DB --------------------------------------------------------------------------------"
+
+        file delete $tmpfile
+        incr i
         if {$i < $number_upload_files} {
             set file_id [db_nextval "acs_object_id_seq"]
         }
     }
-    
+    file delete $upload_file.tmpfile
 } -edit_data {
 
     fs::add_version \