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.200.2.11 -r1.200.2.12
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	1 Jun 2016 10:42:22 -0000	1.200.2.11
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	5 Jun 2016 12:45:53 -0000	1.200.2.12
@@ -194,20 +194,20 @@
       set and_names [list]
       foreach cid_and [split $cid_or ,] {
         if {![string is integer -strict $cid_and]} {
-          ad_return_complaint 1 "invalid category id '$cid_and'"
+          ad_return_complaint 1 "invalid category id '[ns_quotehtml $cid_and]'"
           ad_script_abort
         }
         lappend and_names [::category::get_name $cid_and]
         lappend ands "exists (select 1 from category_object_map \
            where object_id = $item_ref and category_id = $cid_and)"
       }
-      lappend or_names "[join $and_names { and }]"
+      lappend or_names [join $and_names { and }]
       lappend ors "([join $ands { and }])"
     }
     if {$ors eq "()"} {
       set cnames ""
     } else {
-      set cnames "[join $or_names { or }]"
+      set cnames [join $or_names { or }]
       set extra_where_clause "and ([join $ors { or }])"
     }
     #my log "--cnames $category_spec -> $cnames // <$extra_where_clause>"