Index: openacs-4/packages/dotlrn/tcl/privacy-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/privacy-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/tcl/privacy-procs.tcl	7 Aug 2017 23:48:09 -0000	1.5
+++ openacs-4/packages/dotlrn/tcl/privacy-procs.tcl	3 Sep 2024 15:37:37 -0000	1.6
@@ -15,7 +15,7 @@
         't' adds the user to the guest relational segment
         'f' adds the user to the non-guest relational segment
     } {
-        if { [template::util::is_true $value] } {
+        if { [string is true -strict $value] } {
             #put the user in the dotlrn_guest_relseg and remove them
             #from the dotlrn_non_guest_relseg
             db_exec_plsql set_user_guest {}
@@ -33,7 +33,7 @@
         't' adds the user to the non-guest relational segment
         'f' adds the user to the guest relational segment
     } {
-        if { [template::util::is_true $value] } {
+        if { [string is true -strict $value] } {
             set_user_guest_p -user_id $user_id -value f
         } else {
             set_user_guest_p -user_id $user_id -value t