Index: openacs-4/packages/acs-subsite/tcl/group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs.tcl,v
diff -u -r1.51 -r1.52
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	15 Sep 2018 16:28:25 -0000	1.51
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	15 Sep 2018 16:49:08 -0000	1.52
@@ -200,10 +200,10 @@
     @return dict containing group_name, title, join_policy, and description
     @see group::get_element
 } {
-    set group_info [acs::group_cache eval -partition_key $group_id \
-                        info-$group_id- {
-                            group::get_not_cached -group_id $group_id
-                        }]
+    set info [acs::group_cache eval -partition_key $group_id \
+                  info-$group_id- {
+                      group::get_not_cached -group_id $group_id
+                  }]
    
     if {[info exists array]} {
         upvar 1 $array row
@@ -827,27 +827,19 @@
 }
 
 ad_proc -private group::group_p {
-    {-group_id ""}
+    {-group_id:required}
 } {
     Get the title of a group, not cached
 
     @param group_id The group_id of the group
 } {
-    return [util_memoize [list group::group_p_not_cached -group_id $group_id]]
+    return [acs::group_cache eval -partition_key $group_id \
+                exists-$group_id- {
+                    db_string group {select 1 from groups where group_id = :group_id} -default 0
+                }]
 }
 
 
-ad_proc -private group::group_p_not_cached {
-    {-group_id ""}
-} {
-    Get the title of a group, not cached
-
-    @param group_id The group_id of the group
-} {
-    return [db_string group {select 1 from groups where group_id = :group_id} -default 0]
-}
-
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4