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.11 -r1.50.2.12
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	9 Jul 2014 09:45:16 -0000	1.50.2.11
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	18 Aug 2014 16:51:06 -0000	1.50.2.12
@@ -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 = '$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, "
@@ -607,9 +607,9 @@
     lappend cond "coalesce(ci.live_revision,ci.latest_revision) = bt.revision_id"
     if {$parent_id ne ""} {
       if {$with_children} {
-        lappend cond "ci.parent_id in (select $parent_id from dual union select item_id from cr_items where parent_id = $parent_id)"
+        lappend cond "ci.parent_id in (select :parent_id::integer from dual union select item_id from cr_items where parent_id = :parent_id)"
       } else {
-        lappend cond "ci.parent_id = $parent_id"
+        lappend cond "ci.parent_id = :parent_id"
       }
     }
 
@@ -1312,7 +1312,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_folders"} {
       lappend cond "acs_objects.object_id = cf.folder_id and ci.item_id = cf.folder_id"
       set acs_objects_table "acs_objects, cr_items ci, "
@@ -1321,7 +1321,7 @@
       set acs_objects_table ""
     }
     if {$parent_id ne ""} {
-      set parent_clause "ci.parent_id = $parent_id"
+      set parent_clause "ci.parent_id = :parent_id"
       if {$with_children} {
         lappend cond "ci.item_id in (
                 select children.item_id from cr_items parent, cr_items children