Index: openacs-4/packages/acs-lang/www/admin/message-unregister.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/Attic/message-unregister.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/acs-lang/www/admin/message-unregister.tcl	29 Aug 2022 14:17:23 -0000	1.1.2.3
+++ openacs-4/packages/acs-lang/www/admin/message-unregister.tcl	6 Oct 2023 12:31:05 -0000	1.1.2.4
@@ -12,7 +12,7 @@
     package_key:token
     message_key
     show:optional
-    confirm_p:boolean,optional
+    {confirm_p:boolean,optional,notnull 0}
 }
 
 
@@ -31,9 +31,7 @@
 set form_export_vars [export_vars -form { locale package_key message_key show {confirm_p 1} }]
 
 
-if { [info exists confirm_p] && $confirm_p ne ""
-     && [string is true -strict $confirm_p]
- } {
+if { $confirm_p } {
     lang::message::unregister $package_key $message_key
 
     ad_returnredirect [export_vars -base message-list { locale package_key show }]