Index: openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl,v
diff -u -r1.41.2.4 -r1.41.2.5
--- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	8 May 2019 14:22:01 -0000	1.41.2.4
+++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	4 Jul 2019 18:11:46 -0000	1.41.2.5
@@ -408,7 +408,8 @@
     foreach _var $variables {
       if {[llength $_var] == 2} {
         #
-        # The variable specification is a pair of name and value
+        # The variable specification "$_var" is a pair of name and
+        # value.
         #
         lappend __vars [lindex $_var 0] [uplevel subst [lindex $_var 1]]
       } else {
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.1 -r1.29.2.2
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	8 May 2019 14:23:40 -0000	1.29.2.1
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	4 Jul 2019 18:11:46 -0000	1.29.2.2
@@ -221,7 +221,8 @@
       } else {
         ns_log notice "enforce_permissions: $user_id doesn't have $privilege on $object"
       }
-      ad_return_forbidden  "[_ xotcl-core.permission_denied]" [_ xotcl-core.policy-error-insufficient_permissions]
+      ad_return_forbidden  "[_ xotcl-core.permission_denied]" \
+          [_ xotcl-core.policy-error-insufficient_permissions]
       ad_script_abort
     }