Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.85 -r1.86
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	22 Jun 2018 14:31:44 -0000	1.85
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	28 Jun 2018 12:30:28 -0000	1.86
@@ -1282,9 +1282,7 @@
     set creation_user [acs_object::get_element \
                            -object_id $item_id \
                            -element creation_user]
-    set owner [acs_user::get_element \
-                   -user_id $creation_user \
-                   -element name]
+    set owner [person::name -person_id $creation_user]
 
     if {$action in {"new_file" "new_url" "new_version"}} {
         
Index: openacs-4/packages/file-storage/www/file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file.tcl,v
diff -u -r1.38 -r1.39
--- openacs-4/packages/file-storage/www/file.tcl	15 Jun 2018 09:27:55 -0000	1.38
+++ openacs-4/packages/file-storage/www/file.tcl	28 Jun 2018 12:30:28 -0000	1.39
@@ -49,8 +49,7 @@
 set delete_p [permission::permission_p -party_id $user_id -object_id $file_id -privilege "delete"]
 set admin_p  [permission::permission_p -party_id $user_id -object_id $file_id -privilege "admin"]
 
-set owner [acs_user::get_element \
-               -user_id $creation_user -element name]
+set owner [person::name -person_id $creation_user]
 
 set file_url [content::item::get_path -item_id $file_id \
                   -root_folder_id $root_folder_id]