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.23 -r1.24
--- openacs-4/packages/acs-templating/www/scripts/xinha/attach-file.tcl	11 Jul 2018 21:57:26 -0000	1.23
+++ openacs-4/packages/acs-templating/www/scripts/xinha/attach-file.tcl	14 Sep 2018 18:15:49 -0000	1.24
@@ -209,7 +209,8 @@
 		} else {
 		    if {$choose_file ne ""} {
 			set item_id $choose_file
-			set file_name [lindex $recent_files_options [util_search_list_of_lists $recent_files_options $item_id 1] 0]
+                        set file_name [lindex $recent_files_options [lsearch -index 1 $recent_files_options $item_id] 0]
+
 			# we have to get rid of the icon from the form.
 			set file_name [regsub -all {<.*?>} $file_name {}]
 		    }