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 -N -r1.16 -r1.16.2.1
--- openacs-4/packages/notifications/tcl/notification-type-procs.tcl	11 Apr 2018 10:26:07 -0000	1.16
+++ openacs-4/packages/notifications/tcl/notification-type-procs.tcl	18 May 2020 21:13:20 -0000	1.16.2.1
@@ -52,13 +52,12 @@
     ad_proc -public get_type_id {
         {-short_name:required}
     } {
-	return the notification type ID given a short name. Short names are unique but not primary keys.
+	return the notification type ID given a short name.
+        Short names are unique but not primary keys.
     } {
-        set key ::notification::type::get_type_id($short_name)
-        if {[info exists $key]} {
-            return [set $key]
-        }
-        return [set $key [notification::type::get_type_id_not_cached $short_name]]
+        return [acs::per_thread_cache eval -key notifications:get_type_id($short_name) {
+            notification::type::get_type_id_not_cached $short_name
+        }]
     }
     
     ad_proc -private get_type_id_not_cached {