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.14 -r1.15
--- openacs-4/packages/notifications/tcl/notification-type-procs.tcl	10 Apr 2018 12:40:30 -0000	1.14
+++ openacs-4/packages/notifications/tcl/notification-type-procs.tcl	10 Apr 2018 12:42:06 -0000	1.15
@@ -54,7 +54,7 @@
     } {
 	return the notification type ID given a short name. Short names are unique but not primary keys.
     } {
-        set key ::notification::type::get_type_id
+        set key ::notification::type::get_type_id($short_name)
         if {[info exists $key]} {
             return [set $key]
         }