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 -r1.191.2.4 -r1.191.2.5
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	5 Oct 2013 11:25:10 -0000	1.191.2.4
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	6 Oct 2013 12:53:10 -0000	1.191.2.5
@@ -789,7 +789,7 @@
       if {$category_ids ne ""} {
         foreach cid [split $category_ids ,] {
           set or_ids [split $cid |]
-	  foreach or_id in $or_ids { if {![string is integer $or_id]} {error "invalid category_ids"}}
+	  foreach or_id $or_ids { if {![string is integer $or_id]} {error "invalid category_ids"}}
           append sql " and exists (select * from category_object_map \
 	     where object_id = ci.item_id and category_id in ([join $or_ids ,]))"
         }