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.12 -r1.13
--- openacs-4/packages/notifications/tcl/notification-type-procs.tcl	21 Mar 2018 08:44:46 -0000	1.12
+++ openacs-4/packages/notifications/tcl/notification-type-procs.tcl	10 Apr 2018 12:35:26 -0000	1.13
@@ -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]
         }