Index: openacs-4/packages/general-comments/tcl/general-comments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/tcl/general-comments-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/general-comments/tcl/general-comments-procs.tcl	11 Jun 2018 15:15:31 -0000	1.27
+++ openacs-4/packages/general-comments/tcl/general-comments-procs.tcl	28 Jun 2018 10:39:36 -0000	1.28
@@ -162,12 +162,12 @@
                 and (:user_id is null or o.creation_user = :user_id)
               order by o.creation_date $sort_dir
     }] {
-        set author [acs_user::get_element -user_id $author -element name]
-        
+        set author [person::name -person_id $author]
+
         if {$content ne ""} {
             set content [template::util::richtext::get_property html_value [list $content $mime_type]]
         }
-        
+
         set pretty_date [lc_time_fmt $creation_date %x]
         set pretty_date2 [lc_time_fmt $creation_date "%q %X"]