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 -N -r1.29.2.5 -r1.29.2.6
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	30 Jul 2019 19:14:24 -0000	1.29.2.5
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	4 Aug 2019 18:00:54 -0000	1.29.2.6
@@ -161,9 +161,11 @@
       lassign [:get_privilege -query_context $ctx $permission $object $method] kind p
       #:msg "--privilege = $p kind = $kind"
       switch -- $kind {
-        primitive {set allowed [:check_privilege -login false \
-                                    -package_id $package_id -user_id $user_id \
-                                    $p $object $method]}
+        primitive {
+          set allowed [:check_privilege -login false \
+                           -package_id $package_id -user_id $user_id \
+                           $p $object $method]
+        }
         complex {
           lassign $p attribute privilege
           set id [$object set $attribute]