Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.59 -r1.60
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	24 Dec 2017 12:28:07 -0000	1.59
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	2 Jan 2018 10:43:58 -0000	1.60
@@ -625,7 +625,7 @@
     set cond [list]
     if {$type_selection_clause ne ""} {lappend cond $type_selection_clause}
     if {$where_clause ne ""}          {lappend cond $where_clause}
-    if {[info exists publish_status]} {lappend cond "ci.publish_status = $publish_status"}
+    if {[info exists publish_status]} {lappend cond "ci.publish_status = :publish_status"}
     if {$base_table eq "cr_revisions"} {
       lappend cond "acs_objects.object_id = bt.revision_id"
       set acs_objects_table "acs_objects, "