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.96 -r1.97
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	27 Oct 2014 16:41:19 -0000	1.96
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	7 Aug 2017 23:48:10 -0000	1.97
@@ -93,7 +93,7 @@
     } {
         remove the applet from dotlrn
     } {
-        ad_return_complaint 1 "[applet_key] remove_applet not implimented!"
+        ad_return_complaint 1 "[applet_key] remove_applet not implemented!"
     }
 
     ad_proc -public add_applet_to_community {
@@ -272,13 +272,13 @@
     } {
         remove the fs applet from a specifc dotlrn community
     } {
-        ad_return_complaint 1 "[applet_key] remove_applet_from_community not implimented!"
+        ad_return_complaint 1 "[applet_key] remove_applet_from_community not implemented!"
     }
 
     ad_proc -public add_user {
         user_id
     } {
-        One time user-specfic init
+        One time user-specific init
     } {
         # Message lookups below need variable user_name
         set user_name [acs_user::get_element -user_id $user_id -element name]
@@ -325,8 +325,7 @@
         }
 
         # does this user already have a shared folder?
-        set user_shared_folder_id [get_user_shared_folder \
-                                       -user_id $user_id]
+        set user_shared_folder_id [get_user_shared_folder -user_id $user_id]
 
         if {$user_shared_folder_id eq ""} {
 
@@ -945,3 +944,9 @@
         
     }
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: