Index: openacs-4/packages/file-storage/www/version-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/version-delete.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/file-storage/www/version-delete.tcl	15 Jun 2018 15:11:04 -0000	1.17
+++ openacs-4/packages/file-storage/www/version-delete.tcl	3 Sep 2024 15:37:38 -0000	1.18
@@ -6,7 +6,7 @@
     @cvs-id $Id$
 } {
     version_id:naturalnum,notnull
-    {confirmed_p:boolean "f"}
+    {confirmed_p:boolean,notnull "f"}
 } -validate {
     valid_version -requires {version_id} {
         if {![fs_version_p $version_id]} {
@@ -40,13 +40,13 @@
 set file_url [export_vars -base file {{file_id $item_id}}]
 
 ad_form -export version_id -cancel_url $file_url -form {
-    {delete_message:text(inform) {label $delete_message}}
+    {delete_message:text(inform) {label ""} {value $delete_message}}
 } -on_submit {
 
     set parent_id [fs::delete_version \
                        -item_id $item_id \
                        -version_id $version_id]
-    # parent_id > 0 means this was last revision left, therefore file
+    # parent_id > 0 means this was last revision left, therefore, file
     # was deleted as well. Return to the parent instead than to the
     # non-existing file.
     set return_url [expr {$parent_id == 0 ?