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 -r1.90.2.1 -r1.90.2.2
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	23 Aug 2005 12:01:38 -0000	1.90.2.1
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	27 Oct 2005 11:24:03 -0000	1.90.2.2
@@ -852,6 +852,14 @@
     } {
         Get the folder_id of a user's root folder.
     } {
+        return [util_memoize [list dotlrn_fs::get_user_root_folder_not_cached -user_id $user_id]]
+    }
+
+    ad_proc -private get_user_root_folder_not_cached {
+	{-user_id:required}
+    } {
+        Get the folder_id of a user's root folder.
+    } {
         set name [get_user_root_folder_name -user_id $user_id]
 
         return [db_string get_user_root_folder {