Index: openacs-4/packages/dotlrn-portlet/tcl/test/dotlrn-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/tcl/test/dotlrn-portlet-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/dotlrn-portlet/tcl/test/dotlrn-portlet-procs.tcl	21 Aug 2020 17:29:35 -0000	1.1.2.2
+++ openacs-4/packages/dotlrn-portlet/tcl/test/dotlrn-portlet-procs.tcl	6 Oct 2020 16:08:03 -0000	1.1.2.3
@@ -9,6 +9,7 @@
 aa_register_case -procs {
         dotlrn_admin_portlet::link
         dotlrn_portlet::link
+        dotlrn_portlet::get_pretty_name
         dotlrn_members_portlet::link
         dotlrn_members_staff_portlet::link
         dotlrn_members_staff_portlet::get_pretty_name
@@ -26,7 +27,8 @@
     aa_equals "dotLRN members portlet link"                 "[dotlrn_members_portlet::link]" ""
     aa_equals "dotLRN members staff portlet link"           "[dotlrn_members_staff_portlet::link]" ""
     aa_equals "dotLRN members staff portlet pretty name"    "[dotlrn_members_staff_portlet::get_pretty_name]" "#dotlrn-portlet.members_staff_portlet_pretty_name#"
-    aa_equals "dotLRN portlet pretty name"                  "[dotlrn_members_portlet::get_pretty_name]" "#dotlrn-portlet.members_portlet_pretty_name#"
+    aa_equals "dotLRN portlet pretty name"                  "[dotlrn_portlet::get_pretty_name]" "[dotlrn::parameter -name subcommunities_pretty_plural]"
+    aa_equals "dotLRN members portlet pretty name"          "[dotlrn_members_portlet::get_pretty_name]" "#dotlrn-portlet.members_portlet_pretty_name#"
     aa_equals "dotLRN admin portlet pretty name"            "[dotlrn_admin_portlet::get_pretty_name]" "#dotlrn-portlet.admin_pretty_name#"
     aa_equals "dotLRN admin portlet package key"            "[dotlrn_admin_portlet::my_package_key]" "dotlrn-portlet"
 }