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.103 -r1.104
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	14 Dec 2006 09:12:12 -0000	1.103
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	14 Dec 2006 10:13:34 -0000	1.104
@@ -511,7 +511,12 @@
 
     if {$type == "salutation"} {
 	# long salutation (though still without the first name)
-	return "$value(salutation) [string trim "$value(person_title) $value(last_name)"]"
+	# Check for informal salutation
+	if {$value(salutation) eq "Hello" || $value(salutation) eq "Hallo"} {
+	    return "$value(salutation) [string trim "$value(first_names)"]"
+	} else {
+	    return "$value(salutation) [string trim "$value(person_title) $value(last_name)"]"
+	}
     } else {
 	# short sticker salutation
 	set name [string trim "$value(first_names) $value(last_name)"]