Index: openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/Attic/db-proc-test-procs.tcl,v
diff -u -r1.1.2.17 -r1.1.2.18
--- openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl	23 Jun 2021 11:14:40 -0000	1.1.2.17
+++ openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl	23 Jun 2021 13:34:18 -0000	1.1.2.18
@@ -789,10 +789,10 @@
     set bool_true {t 1 -1 true 1234 yes TRUE YES on ON}
     set bool_false {f 0 false no FALSE NO off OFF Off}
     foreach value $bool_true {
-        aa_equals "True" [db_boolean $value] "t"
+        aa_equals "Is $value true?" [db_boolean $value] "t"
     }
     foreach value $bool_false {
-        aa_equals "False" [db_boolean $value] "f"
+        aa_equals "Is $value false?" [db_boolean $value] "f"
     }
 }