Index: openacs-4/packages/notifications/lib/notification-widget.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/lib/notification-widget.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/notifications/lib/notification-widget.tcl	19 Sep 2015 16:05:31 -0000	1.1.2.1
+++ openacs-4/packages/notifications/lib/notification-widget.tcl	20 Sep 2015 17:54:09 -0000	1.1.2.2
@@ -4,13 +4,16 @@
     {type:token}
     {object_id:naturalnum}
     {pretty_name}
-    {url}
+    {url ""}
     {user_id:naturalnum ""}
 }
 
 if {$user_id eq ""} {
     set user_id [ad_conn user_id]
 }
+if {$url eq ""} {
+    set url [ad_conn url]
+}
 
 set type_id [notification::type::get_type_id -short_name $type]
 set request_id [notification::request::get_request_id -type_id $type_id -object_id $object_id -user_id $user_id]