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 -N -r1.98.2.11 -r1.98.2.12
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	5 Dec 2021 15:37:48 -0000	1.98.2.11
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	25 Jan 2022 17:33:19 -0000	1.98.2.12
@@ -128,21 +128,17 @@
 
     @see person::get
 } {
-    set person_p [db_0or1row get_person_info {
+    db_0or1row get_person_info {
         select person_id,
                first_names,
                last_name,
                first_names || ' ' || last_name as name,
                bio
           from persons
          where person_id = :person_id
-    } -column_array person]
+    } -column_array person
 
-    if {$person_p} {
-        return [array get person]
-    } else {
-        return [list]
-    }
+    return [array get person]
 }
 
 ad_proc -public person::flush_person_info {