Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v
diff -u -N -r1.86.2.5 -r1.86.2.6
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	24 Apr 2022 11:24:37 -0000	1.86.2.5
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	18 Aug 2022 16:02:08 -0000	1.86.2.6
@@ -210,12 +210,22 @@
     } {
         Get the portal_id for a particular user
     } {
-        ::acs::try_cache ::dotlrn::dotlrn_user_cache eval -partition_key $user_id \
+        ::dotlrn::dotlrn_user_cache eval -partition_key $user_id \
             $user_id-portal_id {
-                db_string select_user_portal_id {
-                    select portal_id from dotlrn_users where user_id = :user_id
-                } -default ""
+                dotlrn::get_portal_id_not_cached -user_id $user_id
             }
+        #
+        # acs::try_cache could improve caching here, but has
+        # intentionally been defined as a private interface, so the
+        # automated tests would complain. This requires further
+        # thinking.
+	#
+        # ::acs::try_cache ::dotlrn::dotlrn_user_cache eval -partition_key $user_id \
+        #     $user_id-portal_id {
+        #         db_string select_user_portal_id {
+        #             select portal_id from dotlrn_users where user_id = :user_id
+        #         } -default ""
+        #     }
     }
 
     ad_proc -private get_portal_id_not_cached {