Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.42.2.11 -r1.42.2.12
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	2 Aug 2004 19:56:00 -0000	1.42.2.11
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	2 Aug 2004 20:26:18 -0000	1.42.2.12
@@ -164,7 +164,10 @@
         set root_folder_id [fs_get_root_folder]
     }
 
-    if [empty_string_p $final] {
+    if {[empty_string_p $final] \
+            && !($item_id == $root_folder_id)} {
+        # don't get title for last element if we are in the
+        # root folder
 	set start_id [db_string parent_id "
 	select parent_id from cr_items where item_id = :item_id"]
 	set final [db_exec_plsql title "begin
@@ -175,9 +178,9 @@
     }
 
     set context_bar [db_list_of_lists context_bar {}]
-
-    lappend context_bar $final
-
+    if {!($item_id == $root_folder_id)} {
+        lappend context_bar $final
+    }
     return $context_bar
 }
 
Index: openacs-4/packages/file-storage/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/index.tcl,v
diff -u -r1.23.2.3 -r1.23.2.4
--- openacs-4/packages/file-storage/www/index.tcl	29 Jul 2004 00:03:19 -0000	1.23.2.3
+++ openacs-4/packages/file-storage/www/index.tcl	2 Aug 2004 20:26:16 -0000	1.23.2.4
@@ -28,7 +28,8 @@
 
 # Don't allow delete if root folder
 set root_folder_p 0
-if {$folder_id == [fs_get_root_folder]} {
+set root_folder_id [fs_get_root_folder]
+if {$folder_id == $root_folder_id} {
     set root_folder_p 1
 }
 
@@ -88,7 +89,7 @@
     form get_values n_past_days_form n_past_days folder_id
 }
 
-set context [fs_context_bar_list $folder_id]
+set context [fs_context_bar_list -root_folder_id $root_folder_id $folder_id]
 
 set up_url {}
 if { !${root_folder_p}} {