Index: openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl,v
diff -u -r1.72 -r1.73
--- openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl	11 Apr 2013 12:56:24 -0000	1.72
+++ openacs-4/packages/xowiki/tcl/xowiki-callback-procs.tcl	11 Apr 2013 21:53:25 -0000	1.73
@@ -59,12 +59,12 @@
     
     @author Gustaf Neumann
   } {
-    set comment_ids [db_list get_comments "
+    set comment_ids [::xo::db_list get_comments {
       select g.comment_id
       from general_comments g, cr_items i,acs_objects o
       where i.item_id = g.object_id
       and o.object_id = i.item_id
-      and o.package_id = $package_id"]
+      and o.package_id = :package_id}]
     foreach comment_id $comment_ids {
       ::xo::db::sql::acs_message delete -message_id $comment_id
     }