Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -N -r1.234.2.19 -r1.234.2.20
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	22 Feb 2021 15:56:12 -0000	1.234.2.19
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	23 Feb 2021 13:16:55 -0000	1.234.2.20
@@ -1685,7 +1685,7 @@
             }
     }
 
-    ad_proc -public get_portal_id_not_cached {
+    ad_proc -private get_portal_id_not_cached {
         {-community_id:required}
     } {
         Get the id of the comm's portal.
Index: openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl,v
diff -u -N -r1.39.2.3 -r1.39.2.4
--- openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl	14 Oct 2020 15:38:59 -0000	1.39.2.3
+++ openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl	23 Feb 2021 13:16:55 -0000	1.39.2.4
@@ -283,7 +283,7 @@
     } {
         ns_log notice "Cloning [get_pretty_name]"
         static_portal_content::clone \
-            -portal_id [dotlrn_community::get_portal_id_not_cached \
+            -portal_id [dotlrn_community::get_portal_id \
                             -community_id $new_community_id] \
             -package_id $new_community_id
     }