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.6 -r1.7 --- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl 24 Sep 2007 12:04:26 -0000 1.6 +++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl 28 Sep 2007 07:31:43 -0000 1.7 @@ -612,13 +612,13 @@ if {$where_clause ne ""} {lappend cond $where_clause} if {[info exists publish_status]} {lappend cond "ci.publish_status eq '$publish_status'"} if {$base_table eq "cr_revisions"} { - lappend cond "coalesce(ci.live_revision,ci.latest_revision) = bt.revision_id" lappend cond "acs_objects.object_id = bt.revision_id" set acs_objects_table "acs_objects, " } else { lappend cond "ci.item_id = bt.item_id" set acs_objects_table "" } + lappend cond "coalesce(ci.live_revision,ci.latest_revision) = bt.revision_id" lappend cond "ci.parent_id = $folder_id" if {$page_number ne ""} {