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.65 -r1.66
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	10 Jun 2008 22:07:28 -0000	1.65
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	9 Nov 2008 23:29:26 -0000	1.66
@@ -167,15 +167,17 @@
             && !($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
-	    :1 := file_storage.get_title(:item_id);
-	end;"]
+        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
+        :1 := file_storage.get_title(:item_id);
+    end;"]
     } else {
-	set start_id $item_id
+        set start_id $item_id
     }
 
+    set extra_vars [concat &$extra_vars]
+
     set context_bar [db_list_of_lists context_bar {}]
     if {!($item_id == $root_folder_id)} {
         lappend context_bar $final