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 -r1.126.2.59 -r1.126.2.60
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	17 Jan 2022 10:28:45 -0000	1.126.2.59
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	20 Jan 2022 09:44:02 -0000	1.126.2.60
@@ -1809,14 +1809,14 @@
 #
 #####
 
-ad_proc -private sec_lookup_property {
+ad_proc -private sec_lookup_property_not_cached {
     id
     module
     name
 } {
 
-    Used as a helper procedure for util_memoize to look up a
-    particular property from the database.
+    Look up a particular session property from the database and record
+    the last hit when found.
 
     @return empty, when no property is recorded or a list containing property_value and secure_p
 
@@ -1880,7 +1880,7 @@
         set id $session_id
     }
 
-    set cmd [list sec_lookup_property $id $module $name]
+    set cmd [list sec_lookup_property_not_cached $id $module $name]
 
     if { $cache_only == "t" && ![util_memoize_cached_p $cmd] } {
         return $default
@@ -1983,7 +1983,9 @@
     }
 
     # Remember the new value, seeding the memoize cache with the proper value.
-    util_memoize_seed [list sec_lookup_property $session_id $module $name] [list $value $secure]
+    util_memoize_seed \
+        [list sec_lookup_property_not_cached $session_id $module $name] \
+        [list $value $secure]
 }