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 -N -r1.42 -r1.43
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	16 Dec 2005 15:39:53 -0000	1.42
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	16 Dec 2005 17:14:56 -0000	1.43
@@ -157,11 +157,14 @@
     set revision_id [content::item::get_best_revision -item_id $party_id]
     foreach attribute [list "first_names" "last_name" "salutation" "person_title"] {
 	set value($attribute) [ams::value -object_id $revision_id -attribute_name $attribute]
+	if {[string eq $attribute "first_names"]} {
+	    append value(first_names) " "
+	}
     }
 
     if {$type == "salutation"} {
 	# long salutation
-	return "$person(salutation) [string trim "$value(person_title) $value(first_names)$value(last_name)"]"
+	return "$value(salutation) [string trim "$value(person_title) $value(first_names)$value(last_name)"]"
     } else {
 	# short sticker salutation
 	return "- [string trim "$value(person_title) $value(first_names)$value(last_name)"] -"