Index: openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl,v
diff -u -r1.9.2.4 -r1.9.2.5
--- openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl	30 Mar 2021 11:19:39 -0000	1.9.2.4
+++ openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl	31 Mar 2021 11:32:54 -0000	1.9.2.5
@@ -19,7 +19,7 @@
 ad_proc -private file_storage::twt::delete_file { file_name } {
     Deletes a file.
 } {
-    # Delete a file name
+    # Delete a filename
     file delete -force -- $file_name
 }
 
@@ -209,7 +209,7 @@
 
     if { [string match  "*\?folder*id*" $response_url] } {
 
-        # Get the short file name
+        # Get the short filename
         set list_words [split "$file_name" /]
         set short_file_name [lindex $list_words [llength $list_words]-1]
 
@@ -276,7 +276,7 @@
 
     if { [string match  "*/dotlrn/file-storage/\?folder*id*" $response_url] } {
 
-        # Get the short file name
+        # Get the short filename
         set list_words [split "$file_name" /]
         set short_file_name [lindex $list_words [llength $list_words]-1]
 
@@ -310,7 +310,7 @@
 
     if { [string match  "*/dotlrn/file-storage/\?folder*id*" $response_url] } {
 
-        # Get the short file name
+        # Get the short filename
         set list_words [split "$file_name" /]
         set short_file_name [lindex $list_words [llength $list_words]-1]