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.4 -r1.86.2.5
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	23 Feb 2021 13:08:02 -0000	1.86.2.4
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	24 Apr 2022 11:24:37 -0000	1.86.2.5
@@ -210,9 +210,11 @@
     } {
         Get the portal_id for a particular user
     } {
-        ::dotlrn::dotlrn_user_cache eval -partition_key $user_id \
+        ::acs::try_cache ::dotlrn::dotlrn_user_cache eval -partition_key $user_id \
             $user_id-portal_id {
-                dotlrn::get_portal_id_not_cached -user_id $user_id
+                db_string select_user_portal_id {
+                    select portal_id from dotlrn_users where user_id = :user_id
+                } -default ""
             }
     }