Index: openacs-4/packages/notifications/www/object-goto.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/www/object-goto.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/notifications/www/object-goto.tcl	17 May 2003 10:54:55 -0000	1.2
+++ openacs-4/packages/notifications/www/object-goto.tcl	27 Oct 2014 16:41:51 -0000	1.3
@@ -5,8 +5,8 @@
     @creation-date 22 July 2002
     @cvs-id $Id$
 } {
-    object_id:notnull
-    type_id:notnull
+    object_id:naturalnum,notnull
+    type_id:naturalnum,notnull
 } 
 
 
@@ -19,6 +19,6 @@
 
 set sc_impl_name [db_string get_notif_type {}]
 
-set url [acs_sc_call NotificationType GetURL [list $object_id] $sc_impl_name]
+set url [acs_sc::invoke -contract NotificationType -operation GetURL -call_args [list $object_id] -impl $sc_impl_name]
 
 ad_returnredirect $url