Index: openacs-4/packages/file-storage/www/simple-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-add.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/file-storage/www/simple-add.tcl	25 Sep 2003 12:28:14 -0000	1.8
+++ openacs-4/packages/file-storage/www/simple-add.tcl	13 Oct 2003 17:16:08 -0000	1.9
@@ -41,3 +41,6 @@
 if {[empty_string_p $title]} {
     set lock_title_p 0
 }
+
+# Message lookup uses variable pretty_name
+set page_title [_ file-storage.simple_add_page_title]