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 -r1.9.2.1
--- openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl	15 Aug 2018 16:24:28 -0000	1.9
+++ openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl	10 Jul 2019 18:06:58 -0000	1.9.2.1
@@ -18,6 +18,7 @@
         content::item::get_content
         content::item::new
         content::revision::new
+        content::revision::get_title
         cr_write_content 
     } \
     content_revision {
@@ -52,10 +53,11 @@
         # create a revision
         set revision_id [db_nextval "acs_object_id_seq"]
 
+        set title "Test Title"
         set returned_revision_id [content::revision::new \
                                       -revision_id $revision_id \
                                       -item_id $first_item_id \
-                                      -title "Test Title" \
+                                      -title $title \
                                       -description "Test Description" \
                                       -content "Test Content"]
         aa_true "Basic Revision created revision_id $revision_id returned_revision_id $returned_revision_id " \
@@ -64,11 +66,16 @@
         content::item::get_content -revision_id $returned_revision_id -array revision_content
         set revision_content(content) [cr_write_content -revision_id $returned_revision_id -string]
         aa_true "Revision contains correct content" {
-            $revision_content(title) eq "Test Title"
+            $revision_content(title) eq $title
             && $revision_content(content) eq "Test Content"
             && $revision_id == $revision_content(revision_id)
         }
 
+        aa_equals "Title of the revision should be $title" \
+                  "$title" \
+                  [content::revision::get_title \
+                         -revision_id $returned_revision_id]
+
         content::item::delete -item_id $first_item_id
 
         content::folder::unregister_content_type \