Index: openacs-4/packages/file-storage/www/folder-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v
diff -u -r1.15 -r1.15.2.1
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	3 Oct 2003 14:00:13 -0000	1.15
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	11 Dec 2003 17:59:29 -0000	1.15.2.1
@@ -30,8 +30,12 @@
 
 set content_size_total 0
 
-set root_folder_id [fs::get_root_folder]
+if {![exists_and_not_null root_folder_id]} {
+    set root_folder_id [fs::get_root_folder]
+}
 
+set folder_path [db_exec_plsql get_folder_path {}]
+
 db_multirow -extend { last_modified_pretty content_size_pretty } contents select_folder_contents {} {
     set last_modified_ansi [lc_time_system_to_conn $last_modified_ansi]