Index: openacs-4/packages/ams/tcl/ams-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/ams/tcl/ams-procs.tcl	10 Jun 2005 09:43:22 -0000	1.13
+++ openacs-4/packages/ams/tcl/ams-procs.tcl	10 Jun 2005 21:50:53 -0000	1.14
@@ -67,8 +67,8 @@
 
     @see ams::attribute::new
 } {
-    set pretty_name [lang::util::convert_to_i18n -prefix "${object_type}_${attribute_name}" -text "$pretty_name"]
-    set pretty_plural [lang::util::convert_to_i18n -prefix "${object_type}_${attribute_name}" -text "$pretty_plural"]
+    set pretty_name [lang::util::convert_to_i18n -message_key "${object_type}_${attribute_name}" -text "$pretty_name"]
+    set pretty_plural [lang::util::convert_to_i18n -message_key "${object_type}_${attribute_name}" -text "$pretty_plural"]
 
     if { $if_does_not_exist_p } {
 	set attribute_id [attribute::id -object_type $object_type -attribute_name $attribute_name]