Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v
diff -u -N -r1.200.2.7 -r1.200.2.8
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	30 Nov 2015 20:26:48 -0000	1.200.2.7
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	31 Dec 2015 17:01:44 -0000	1.200.2.8
@@ -194,9 +194,8 @@
       set and_names [list]
       foreach cid_and [split $cid_or ,] {
         if {![string is integer -strict $cid_and]} {
-          return -code error "invalid category id '$cid_and'"
-          ns_log warning "ignore invalid category id '$cid_and'"
-          continue
+          ad_return_complaint 1 "invalid category id '$cid_and'"
+          ad_script_abort
         }
         lappend and_names [::category::get_name $cid_and]
         lappend ands "exists (select 1 from category_object_map \
@@ -801,7 +800,12 @@
       if {$category_ids ne ""} {
         foreach cid [split $category_ids ,] {
           set or_ids [split $cid |]
-          foreach or_id $or_ids { if {![string is integer $or_id]} {error "invalid category_ids"}}
+          foreach or_id $or_ids {
+            if {![string is integer $or_id]} {
+              ad_return_complaint 1 "invalid category_id"
+              ad_script_abort
+            }
+          }
           append sql " and exists (select * from category_object_map \
          where object_id = ci.item_id and category_id in ([join $or_ids ,]))"
         }