Index: openacs-4/packages/ams/tcl/ams-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-widget-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/ams/tcl/ams-widget-procs.tcl	23 Jul 2005 17:17:24 -0000	1.9
+++ openacs-4/packages/ams/tcl/ams-widget-procs.tcl	9 Sep 2005 14:06:12 -0000	1.10
@@ -93,8 +93,8 @@
 } {
     set return_list [list]
     db_foreach get_options {} {
-	set option "[lang::util::localize $option $locale]"
-	lappend return_list [list $option $option_id]
+	set pretty_name "[lang::util::localize $pretty_name $locale]"
+	lappend return_list [list $pretty_name $option_id]
     }
     return $return_list
 }