Index: openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl,v
diff -u -r1.14.2.3 -r1.14.2.4
--- openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	28 Oct 2015 09:38:34 -0000	1.14.2.3
+++ openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	9 Dec 2016 09:15:27 -0000	1.14.2.4
@@ -173,7 +173,7 @@
                              -description "User email image"  -creation_ip $creation_ip ]
         
         email_image::add_relation -user_id $user_id -item_id $item_id
-        db_dml update_cr_items_new {}
+        content::item::set_live_revision -revision_id $revision_id
         db_dml new_lob_content {} -blob_files [list ${dest_path}]
         db_dml lob_size {}
     }
@@ -250,7 +250,7 @@
             set revision_id [content::revision::new -item_id $item_id -title $image_name \
                                  -mime_type $mime_type  \
                                  -description "User email image" -creation_ip $creation_ip ]
-            db_dml update_cr_items {}
+            content::item::set_live_revision -revision_id $revision_id
             db_dml lob_content {} -blob_files [list ${dest_path}]
             db_dml lob_size {}
         }