Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v
diff -u -r1.36.2.3 -r1.36.2.4
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	20 Oct 2015 08:01:04 -0000	1.36.2.3
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	2 Jan 2016 00:46:27 -0000	1.36.2.4
@@ -247,18 +247,9 @@
         }
     }
 
-    db_dml update_tarball {update cr_revisions
-        set content = empty_blob()
-        where revision_id = :revision_id
-        returning content into :1} -blob_files [list $tmpfile]
+    db_dml update_tarball {} -blob_files [list $tmpfile]
 
-    db_dml update_content_length {
-        update apm_package_versions
-        set content_length = (select dbms_lob.getlength(content)
-                              from cr_revisons
-                              where revision_id = :revision_id)
-        where version_id = :version_id
-    }
+    db_dml update_content_length {}
 
     file delete $tmpfile
 }