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.12.2.3 -r1.12.2.4
--- openacs-4/packages/file-storage/www/file-add.tcl	29 Jul 2005 02:27:02 -0000	1.12.2.3
+++ openacs-4/packages/file-storage/www/file-add.tcl	29 Aug 2005 18:40:17 -0000	1.12.2.4
@@ -217,19 +217,19 @@
     }
     file delete $upload_file.tmpfile
 } -edit_data {
-
-    set filemame [template::util::file::get_property filename $upload_file]
+    set this_title $title
+    set filename [template::util::file::get_property filename $upload_file]
     if {[string equal $this_title ""]} {
 	set this_title $filename
     }
 	
     fs::add_version \
 	-name $filename \
 	-tmp_filename [template::util::file::get_property tmp_filename $upload_file] \
-        -item_id $file_id \
+    -item_id $file_id \
 	-creation_user $user_id \
 	-creation_ip [ad_conn peeraddr] \
-	-title $title \
+	-title $this_title \
 	-description $description \
 	-package_id $package_id