Index: openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl,v
diff -u -N -r1.9.2.1 -r1.9.2.2
--- openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl	10 Jul 2019 18:06:58 -0000	1.9.2.1
+++ openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl	6 Mar 2021 17:09:32 -0000	1.9.2.2
@@ -19,6 +19,7 @@
         content::item::new
         content::revision::new
         content::revision::get_title
+        content::revision::item_id
         cr_write_content 
     } \
     content_revision {
@@ -71,6 +72,10 @@
             && $revision_id == $revision_content(revision_id)
         }
 
+        aa_equals "content_revision is consistent" \
+            [content::revision::item_id -revision_id $revision_id] \
+            $first_item_id
+        
         aa_equals "Title of the revision should be $title" \
                   "$title" \
                   [content::revision::get_title \