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.63 -r1.64
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	16 May 2002 20:54:09 -0000	1.63
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	21 May 2002 18:05:10 -0000	1.64
@@ -531,9 +531,9 @@
         set name [get_user_root_folder_name -user_id $user_id]
 
         return [db_string get_user_root_folder {
-            select item_id
-            from cr_items
-            where name = :name
+            select folder_id
+            from fs_folders
+            where key = :name
         } -default ""]
     }
 
@@ -553,9 +553,9 @@
         set name [get_user_shared_folder_name -user_id $user_id]
 
         return [db_string get_user_root_folder {
-            select item_id
-            from cr_items
-            where name = :name
+            select folder_id
+            from fs_folders
+            where key = :name
         } -default ""]
     }