Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -N -r1.121 -r1.122
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	30 Nov 2018 11:21:24 -0000	1.121
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	30 Nov 2018 11:26:42 -0000	1.122
@@ -16,6 +16,10 @@
     #set log(timeout) notice
 
     ad_proc -private log {kind msg} {
+        Helper proc for debugging security aspects.
+        Uncomment some of the log(*) flags above to activate
+        debugging and reload this file.
+    } {
         set var ::security::log($kind)
         if {[info exists $var]} {
             ns_log [set $var] "$kind $msg"