Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.42.2.14 -r1.42.2.15
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	10 Aug 2004 18:32:51 -0000	1.42.2.14
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	3 Sep 2004 11:46:32 -0000	1.42.2.15
@@ -568,7 +568,7 @@
     db_1row select_object_metadata {}
 
     if {[empty_string_p $file_name]} {
-	set file_name $upload_file_name
+	set file_name $file_upload_name
     }
     set file_name [remove_special_file_system_characters -string $file_name]