Index: openacs-4/packages/general-comments/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/admin/index.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/general-comments/www/admin/index.tcl	19 Jun 2018 09:51:27 -0000	1.9
+++ openacs-4/packages/general-comments/www/admin/index.tcl	28 Jun 2018 10:39:36 -0000	1.10
@@ -112,7 +112,7 @@
           [ad_dimensional_sql $dimensional]
     [template::list::orderby_clause -orderby -name comments_list]    
 }] {
-    set author [acs_user::get_element -user_id $creation_user -element name]
+    set author [person::name -person_id $creation_user]
     set live_version_p [expr {$live_version_p ? $yes : $no}]
     set approved_p [expr {$approved_p ? $yes : $no}]
     set pretty_date [lc_time_fmt $creation_date "%x %X"]