Index: openacs-4/packages/file-storage/www/folder-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-delete.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/file-storage/www/folder-delete.tcl	5 Nov 2002 17:19:59 -0000	1.5
+++ openacs-4/packages/file-storage/www/folder-delete.tcl	13 Oct 2003 17:16:08 -0000	1.6
@@ -65,4 +65,7 @@
     select label from cr_folders where folder_id = :folder_id"]
 
     set context [fs_context_bar_list -final "[_ file-storage.Delete]" $folder_id]
-}
\ No newline at end of file
+}
+
+# Message lookup uses variable folder_name
+set page_title [_ file-storage.folder_delete_page_title]
\ No newline at end of file