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
 }