Index: openacs-4/packages/acs-templating/www/scripts/xinha/attach-file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/scripts/xinha/attach-file.tcl,v
diff -u -N -r1.16 -r1.17
--- openacs-4/packages/acs-templating/www/scripts/xinha/attach-file.tcl	12 Jul 2009 01:12:32 -0000	1.16
+++ openacs-4/packages/acs-templating/www/scripts/xinha/attach-file.tcl	20 Oct 2009 21:22:58 -0000	1.17
@@ -213,7 +213,7 @@
 		} 
                 set file_name [string trim $file_name]
 		if {$f_title eq "" && [info exists file_name]} {
-		    element set_value upload_form f_title $file_name
+                    set f_title $file_name
 		}            
 		
 		if {$share eq "private" && [string match "image/*" $mime_type]} {