Index: openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl	2 Jun 2002 19:38:58 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl	24 Oct 2003 13:19:41 -0000	1.4
@@ -46,7 +46,7 @@
     } {
 	grant permission to access private data
     } {
-        if {$value == "t"} {
+        if { [template::util::is_true $value] } {
             ad_permission_grant $user_id $object_id read_private_data
         } else {
             ad_permission_revoke $user_id $object_id read_private_data