Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl,v
diff -u -N -r1.101 -r1.102
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	28 Jun 2018 11:54:02 -0000	1.101
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	28 Jun 2018 12:07:49 -0000	1.102
@@ -281,7 +281,7 @@
         One time user-specific init
     } {
         # Message lookups below need variable user_name
-        set user_name [person::name -user_id $user_id]
+        set user_name [person::name -person_id $user_id]
 
         # get the root folder of dotlrn file storage instance
         set package_id [site_node_apm_integration::get_child_package_id \
@@ -365,7 +365,7 @@
     } {
         # reverse the logic done by add_user
         # Message lookups below need variable user_name
-        set user_name [person::name -user_id $user_id]
+        set user_name [person::name -person_id $user_id]
 
         # get the root folder of this package instance
         set package_id [site_node_apm_integration::get_child_package_id \