Index: openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl,v
diff -u -N -r1.38 -r1.39
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	1 May 2006 20:27:26 -0000	1.38
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	4 May 2006 23:35:49 -0000	1.39
@@ -244,7 +244,7 @@
     }
     foreach element $element_list {
 	if {[template::element::exists $form $element]} {
-	    set value [template::element::get_value $form $element]
+	    set value [string trim [template::element::get_value $form $element]]
 	    switch $element {
 		email {
 		    if { [contact::type -party_id $party_id] eq "user" } {