Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v diff -u -r1.32 -r1.33 --- openacs-4/packages/contacts/tcl/contacts-procs.tcl 5 Oct 2005 16:18:49 -0000 1.32 +++ openacs-4/packages/contacts/tcl/contacts-procs.tcl 5 Oct 2005 22:18:32 -0000 1.33 @@ -584,6 +584,7 @@ foreach {section attribute pretty_name value} $values { set return_array($attribute) [lang::util::localize $value] } + if {![empty_string_p $attribute_name]} { return $return_array($attribute_name) } else {