Index: openacs-4/packages/xotcl-core/tcl/context-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/context-procs.tcl,v
diff -u -N -r1.75.2.2 -r1.75.2.3
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	8 May 2019 14:30:45 -0000	1.75.2.2
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	4 Jul 2019 11:20:04 -0000	1.75.2.3
@@ -437,14 +437,11 @@
     }
     # :log "--  context permission user_id=$party_id uid=[::xo::cc user_id] untrusted=[::xo::cc set untrusted_user_id]"
     if {$party_id == 0} {
-      set key :permission($object_id,$privilege,$party_id)
-      if {[info exists $key]} {return [set $key]}
       set granted [permission::permission_p -no_login -party_id $party_id \
                        -object_id $object_id \
                        -privilege $privilege]
       #:msg "--p lookup $key ==> $granted uid=[:user_id] uuid=${:untrusted_user_id}"
       if {$granted || ${:user_id} == ${:untrusted_user_id}} {
-        set $key $granted
         return $granted
       }
       # The permission is not granted for the public.
@@ -453,14 +450,12 @@
       #auth::require_login
       return 0
     }
-
-    set key :permission($object_id,$privilege,$party_id)
-    if {[info exists $key]} {return [set $key]}
+    
     #:msg "--p lookup $key"
-    set $key [permission::permission_p -no_login \
-                  -party_id $party_id \
-                  -object_id $object_id \
-                  -privilege $privilege]
+    return [permission::permission_p -no_login \
+                -party_id $party_id \
+                -object_id $object_id \
+                -privilege $privilege]
     #:log "--  context return [set :$key]"
     #set :$key
   }
@@ -588,4 +583,5 @@
 #    mode: tcl
 #    tcl-indent-level: 2
 #    indent-tabs-mode: nil
+#    eval: (setq tcl-type-alist (remove* "method" tcl-type-alist :test 'equal :key 'car))
 # End: