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.21.2.2 -r1.21.2.3
--- openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	5 Sep 2019 16:05:50 -0000	1.21.2.2
+++ openacs-4/packages/acs-subsite/tcl/email-image-procs.tcl	12 Dec 2019 14:09:51 -0000	1.21.2.3
@@ -299,7 +299,11 @@
 
             email_image::add_relation -user_id $user_id -item_id $item_id
 
-            db_dml update_cr_items {}
+            db_dml update_cr_items {
+                update cr_items
+                set live_revision  = :revision_id
+                where item_id = :item_id                
+            }
             db_dml lob_content {} -blob_files [list ${dest_path}]
             db_dml lob_size {}
         }