Index: openacs-4/packages/bug-tracker/tcl/bug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-procs.tcl,v
diff -u -N -r1.36 -r1.37
--- openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	17 Aug 2016 11:25:04 -0000	1.36
+++ openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	23 Nov 2017 16:41:46 -0000	1.37
@@ -323,12 +323,8 @@
 
     set case_id [db_string get_case_id {}]
     db_exec_plsql delete_bug_case {}
-    set notifications [db_list get_notifications {}]
-    foreach notification_id $notifications {
-        db_exec_plsql delete_notification {}
-    }
-    db_dml unset_revisions {}
-    db_exec_plsql delete_cr_item {}
+
+    content::item::delete -item_id $bug_id
 }
 
 
@@ -996,14 +992,12 @@
 
     # Needed to handle ordering by categories
     set from_bug_clause "bt_bugs b"
-    set orderby_category_where_clause {}
     
     # Lars: This is a little hack because we actually need to alter the query to sort by category
     # but list builder currently doesn't support that.
 
     if { [info exists orderby] && [regexp {^category_(.*),.*$} $orderby match orderby_parent_id] } {
         append from_bug_clause [db_map orderby_category_from_bug_clause]
-        set orderby_category_where_clause [db_map orderby_category_where_clause]
 
         # Branimir: The ORDER BY clause needs to be at the very end of the
         # query. That also means that we need to have in the select list every