Index: openacs-4/packages/xotcl-core/tcl/policy-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/policy-procs.tcl,v
diff -u -r1.29.2.12 -r1.29.2.13
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	24 Jan 2022 18:23:01 -0000	1.29.2.12
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	28 Jan 2022 22:33:34 -0000	1.29.2.13
@@ -71,10 +71,11 @@
   }
 
   Policy instproc get_privilege {{-query_context "::xo::cc"} permission object method} {
-    # the privilege might by primitive (one word privilege)
-    # or it might be complex (attribute + privilege)
-    # or it might be conditional (primitive or complex) in a list of privileges
-
+    #
+    # The privilege might be primitive (one word privilege),
+    # or it might be complex (attribute + privilege),
+    # or it might be conditional (primitive or complex) in a list of privileges.
+    #
     foreach p $permission {
       #:msg "checking permission '$p'"
       set condition [lindex $p 0]