Index: openacs-4/packages/ams/tcl/ams-list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-list-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/ams/tcl/ams-list-procs.tcl	3 Jun 2005 01:17:56 -0000	1.3
+++ openacs-4/packages/ams/tcl/ams-list-procs.tcl	10 Jun 2005 21:50:53 -0000	1.4
@@ -211,7 +211,8 @@
     if { ![exists_and_not_null description] } {
         set description_mime_type ""
     }
-
+    
+    set pretty_name [lang::util::convert_to_i18n -prefix "ams_list" -text "$pretty_name"]
     set extra_vars [ns_set create]
     oacs_util::vars_to_ns_set -ns_set $extra_vars -var_list { list_id package_key object_type list_name pretty_name description description_mime_type }
     set list_id [package_instantiate_object -extra_vars $extra_vars ams_list]