Index: openacs-4/packages/acs-developer-support/tcl/test/acs-developer-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/test/Attic/acs-developer-support-procs.tcl,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/acs-developer-support/tcl/test/acs-developer-support-procs.tcl	1 Jun 2021 13:53:55 -0000	1.1.2.4
+++ openacs-4/packages/acs-developer-support/tcl/test/acs-developer-support-procs.tcl	18 Feb 2022 13:05:41 -0000	1.1.2.5
@@ -110,8 +110,9 @@
             nsv_set ds_properties enabled_p $enabled_p
             set ::ds_enabled_p $enabled_p
             aa_equals "enabled value is ON" 1 [ds_enabled_p]
-            aa_equals "show value is the permission enabled value" [ds_permission_p] [ds_show_p]
-
+            aa_equals "show value is the permission enabled value" \
+                [string is true -strict [ds_permission_p]] \
+                [string is true -strict [ds_show_p]]
         } finally {
             ds_set_database_enabled $old_db_state
             ds_set_profiling_enabled $old_pr_state