Index: openacs-4/packages/xowiki/tcl/notification-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/notification-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/xowiki/tcl/notification-procs.tcl	13 Sep 2012 16:05:28 -0000	1.18
+++ openacs-4/packages/xowiki/tcl/notification-procs.tcl	11 Apr 2013 12:56:23 -0000	1.19
@@ -62,11 +62,11 @@
 namespace eval ::xowiki::notification {
 
   ad_proc -private get_url {id} {
-    if {[db_0or1row is_package_id "select 1 from apm_packages where package_id = $id"]} {
+    if {[::xo::db_0or1row is_package_id {select 1 from apm_packages where package_id = :id}]} {
       #
       # the specified id is an package_id
       #
-      set node_id [db_string get_node_id "select node_id from site_nodes where object_id = $id"]
+      set node_id [::xo::db_string get_node_id {select node_id from site_nodes where object_id = :id}]
       set url [site_node::get_url -node_id $node_id]
       return $url
     }