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.219 -r1.220
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	27 Jan 2018 17:58:19 -0000	1.219
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	30 Mar 2018 10:23:34 -0000	1.220
@@ -1052,7 +1052,9 @@
         }
 
 	if {$package_id ne ""} {
-	    return [util_memoize [list dotlrn_community::get_community_id_not_cached -package_id $package_id]]
+            set key ::dotlrn::community_id($package_id)
+            if {[info exists $key]} {set $key}
+	    return [set $key [dotlrn_community::get_community_id_not_cached -package_id $package_id]]
 	} else {
 	    return ""
 	}