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 -N -r1.26 -r1.27
--- openacs-4/packages/general-comments/tcl/general-comments-procs.tcl	11 Jun 2018 15:08:10 -0000	1.26
+++ openacs-4/packages/general-comments/tcl/general-comments-procs.tcl	11 Jun 2018 15:15:31 -0000	1.27
@@ -162,7 +162,7 @@
                 and (:user_id is null or o.creation_user = :user_id)
               order by o.creation_date $sort_dir
     }] {
-        set author [acs_object_name $author]
+        set author [acs_user::get_element -user_id $author -element name]
         
         if {$content ne ""} {
             set content [template::util::richtext::get_property html_value [list $content $mime_type]]