Index: openacs-4/packages/notifications/tcl/notification-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-type-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/notifications/tcl/notification-type-procs.tcl	7 Aug 2017 23:48:13 -0000	1.9
+++ openacs-4/packages/notifications/tcl/notification-type-procs.tcl	20 Mar 2018 21:32:16 -0000	1.10
@@ -54,7 +54,11 @@
     } {
 	return the notification type ID given a short name. Short names are unique but not primary keys.
     } {
-        return [util_memoize [list notification::type::get_type_id_not_cached $short_name]]
+        set key ::notification::type::get_type_id
+        if {[info exists $key]} {
+            return [set $key]
+        }
+        return [set $key [list notification::type::get_type_id_not_cached $short_name]]
     }
     
     ad_proc -public get_type_id_not_cached {