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.54.2.12 -r1.54.2.13
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	30 Mar 2016 10:31:29 -0000	1.54.2.12
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	2 Jul 2016 09:50:19 -0000	1.54.2.13
@@ -1163,10 +1163,7 @@
                         content_revision__get_number(r.revision_id) as version_number " \
                  -from  "cr_items ci, cr_revisions r, acs_objects o" \
                  -where "ci.item_id = :page_id and r.item_id = ci.item_id and o.object_id = r.revision_id 
-             and exists (select 1 from acs_object_party_privilege_map m
-                         where m.object_id = r.revision_id
-                          and m.party_id = :user_id
-                          and m.privilege = 'read')" \
+                         and acs_permission__permission_p(r.revision_id, :user_id, 'read')" \
                  -orderby "r.revision_id desc"]
     
     ::xo::dc foreach revisions_select $sql {