Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl,v
diff -u -r1.68.2.22 -r1.68.2.23
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	19 Aug 2022 14:23:05 -0000	1.68.2.22
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	29 Aug 2022 14:17:23 -0000	1.68.2.23
@@ -499,8 +499,8 @@
     # Deleting/undeleting?
     #
     if { [info exists edit_array(deleted_p)] } {
-        set edit_array(deleted_p) [db_boolean [template::util::is_true $edit_array(deleted_p)]]
-        if { [template::util::is_true $edit_array(deleted_p)] } {
+        set edit_array(deleted_p) [db_boolean [string is true -strict $edit_array(deleted_p)]]
+        if { [string is true -strict $edit_array(deleted_p)] } {
             set delete_p t
             set delete_comment "deleted"
         } else {