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.3 -r1.4
--- openacs-4/packages/dotlrn/tcl/privacy-procs.tcl	8 Aug 2006 21:26:23 -0000	1.3
+++ openacs-4/packages/dotlrn/tcl/privacy-procs.tcl	1 Nov 2013 21:08:30 -0000	1.4
@@ -44,7 +44,7 @@
         action should be "grant" or "revoke"
         rel_type should be "dotlrn_guest_rel" or "dotlrn_non_guest_rel"
     } {
-        if { [string equal $action "grant"] } {
+        if {$action eq "grant"} {
             set db_proc "grant_rd_prv_dt_to_rel"
         } else {
             set db_proc "revoke_rd_prv_dt_from_rel"