Index: openacs-4/packages/attachments/tcl/attachments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/tcl/attachments-procs.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/attachments/tcl/attachments-procs.tcl	24 Nov 2003 14:50:34 -0000	1.12
+++ openacs-4/packages/attachments/tcl/attachments-procs.tcl	8 Aug 2006 21:26:14 -0000	1.13
@@ -148,7 +148,7 @@
             if { [content_extlink::extlink_p -item_id $item_id] } {
               set label [content_extlink::extlink_name -item_id $item_id]
             } else {
-              set label [fs::get_object_name -object_id $item_id]
+              set label [fs::get_object_prettyname -object_id $item_id]
             }
             set append_lst [list [goto_attachment_url -object_id $object_id -attachment_id $item_id -base_url $base_url]]
             lappend lst_with_urls [concat [list $item_id $label] $append_lst]