Index: openacs-4/packages/file-storage/www/copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/copy.tcl,v
diff -u -r1.9 -r1.9.4.1
--- openacs-4/packages/file-storage/www/copy.tcl	23 Oct 2008 13:59:02 -0000	1.9
+++ openacs-4/packages/file-storage/www/copy.tcl	15 Sep 2013 21:03:26 -0000	1.9.4.1
@@ -32,7 +32,7 @@
 	set copy_message ""
 	incr allowed_count
     } else {
-	set copy_message [_ file_storage.Not_Allowed]
+	set copy_message [_ file-storage.Not_Allowed]
 	incr not_allowed_count
     }
     if {$type eq "folder"} {
Index: openacs-4/packages/file-storage/www/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/delete.tcl,v
diff -u -r1.7 -r1.7.6.1
--- openacs-4/packages/file-storage/www/delete.tcl	2 Feb 2008 12:17:27 -0000	1.7
+++ openacs-4/packages/file-storage/www/delete.tcl	15 Sep 2013 21:03:26 -0000	1.7.6.1
@@ -45,7 +45,7 @@
 	      set delete_message ""
 	      incr allowed_count
 	  } else {
-	      set delete_message [_ file_storage.Not_Allowed]
+	      set delete_message [_ file-storage.Not_Allowed]
 	      incr not_allowed_count
 	  }
 
Index: openacs-4/packages/file-storage/www/move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/move.tcl,v
diff -u -r1.9 -r1.9.4.1
--- openacs-4/packages/file-storage/www/move.tcl	23 Oct 2008 13:59:02 -0000	1.9
+++ openacs-4/packages/file-storage/www/move.tcl	15 Sep 2013 21:03:26 -0000	1.9.4.1
@@ -35,7 +35,7 @@
 	set move_message ""
 	incr allowed_count
     } else {
-	set move_message [_ file_storage.Not_Allowed]
+	set move_message [_ file-storage.Not_Allowed]
 	incr not_allowed_count
     }
     if {$type eq "folder"} {