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.50.2.9 -r1.50.2.10
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	26 Mar 2014 18:09:54 -0000	1.50.2.9
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	9 Jul 2014 09:43:08 -0000	1.50.2.10
@@ -596,7 +596,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 eq '$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, "