Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -r1.88 -r1.89
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	28 Jun 2018 09:13:55 -0000	1.88
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	28 Jun 2018 09:20:14 -0000	1.89
@@ -915,24 +915,20 @@
         set party_id [party::get_by_email -email $email]
     }
 
-    if {[person::person_p -party_id $party_id]} {
-        set name [person::name -person_id $party_id]
-    } else {
-        set name ""
+    set name [person::name -person_id $party_id]
 
-        if { [apm_package_installed_p "organizations"] } {
-            set name [db_string get_org_name {} -default ""]
-        }
+    if { $name eq "" && [apm_package_installed_p "organizations"] } {
+        set name [db_string get_org_name {} -default ""]
+    }
 
-        if { $name eq "" } {
-            set name [db_string get_group_name {} -default ""]
-        }
+    if { $name eq "" } {
+        set name [db_string get_group_name {} -default ""]
+    }
 
-        if { $name eq "" } {
-            set name [db_string get_party_name {} -default ""]
-        }
-
+    if { $name eq "" } {
+        set name [db_string get_party_name {} -default ""]
     }
+
     return $name
 }