Index: openacs-4/packages/xowiki/tcl/weblog-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/weblog-procs.tcl,v
diff -u -r1.63.2.5 -r1.63.2.6
--- openacs-4/packages/xowiki/tcl/weblog-procs.tcl	13 Mar 2014 13:00:01 -0000	1.63.2.5
+++ openacs-4/packages/xowiki/tcl/weblog-procs.tcl	27 May 2014 07:11:25 -0000	1.63.2.6
@@ -80,6 +80,10 @@
       #append extra_where_clause "and c.object_id = ci.item_id and c.category_id = $category_id "
       #append extra_from_clause  ",category_object_map c "
       foreach cid [split $category_id ,] {
+        if {![string is integer -strict $category_id]} {
+          ns_log warning "weblog: ignoring invalid category_id $cid"
+          continue
+        }
         append extra_where_clause "and exists (select * from category_object_map \
            where object_id = ci.item_id and category_id = $cid)"
         lappend cnames [::category::get_name $cid]