Index: openacs-4/packages/contacts/tcl/contact-employee-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-employee-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/contacts/tcl/contact-employee-procs.tcl	8 Sep 2006 13:45:33 -0000	1.4
+++ openacs-4/packages/contacts/tcl/contact-employee-procs.tcl	6 Nov 2006 18:08:21 -0000	1.5
@@ -350,7 +350,7 @@
 	    lappend contact_list [list [person::name -person_id $other_party_id] $other_party_id]
 	}
     }
-
+    return [lsort -dictionary $contact_list]
     return $contact_list
 }
 
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.98 -r1.99
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	6 Nov 2006 12:55:29 -0000	1.98
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	6 Nov 2006 18:08:21 -0000	1.99
@@ -889,6 +889,9 @@
     set group_list [list]
     foreach one_group [contact::groups_list -package_id $package_id] {
 	util_unlist $one_group group_id group_name member_count component_count mapped_p default_p user_change_p
+	if {$user_change_p eq ""} {
+	    set user_change_p 0
+	}
 	# We check if the group has the required privilege 
 	# specified on privilege_required switch, if not then
 	# we just simple continue with the next one