Index: openacs-4/packages/cms/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/form-procs.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/cms/tcl/form-procs.tcl	27 Aug 2001 03:59:17 -0000	1.14
+++ openacs-4/packages/cms/tcl/form-procs.tcl	30 Aug 2001 01:46:05 -0000	1.15
@@ -911,13 +911,17 @@
     } elseif {[string equal $storage_type text]} {
         # upload the file into the revision content
         db_dml upload_text_revision "update cr_revisions 
-             set content = empty_blob() where revision_id = :revision_id
+             set content = empty_blob(), 
+             content_length = '[file size $tmpfile]' 
+             where revision_id = :revision_id
              returning content into :1" -blob_files [list $tmpfile]
 
     } else {
         # upload the file into the revision content
         db_dml upload_revision "update cr_revisions 
-             set content = empty_blob() where revision_id = :revision_id
+             set content = empty_blob(), 
+             content_length = '[file size $tmpfile]' 
+             where revision_id = :revision_id
              returning content into :1" -blob_files [list $tmpfile]
     }
 
@@ -2013,13 +2017,17 @@
     } elseif {[string equal $storage_type text]} {
         # upload the file into the revision content
         db_dml upload_text_revision "update cr_revisions 
-             set content = empty_blob() where revision_id = :revision_id
+             set content = empty_blob(),
+             content_length = '[file size $tmpfile]' where 
+             revision_id = :revision_id
              returning content into :1" -blob_files [list $tmpfile]
 
     } else {
         # upload the file into the revision content
         db_dml upload_revision "update cr_revisions 
-             set content = empty_blob() where revision_id = :revision_id
+             set content = empty_blob(),
+             content_length = '[file size $tmpfile]' 
+             where revision_id = :revision_id
              returning content into :1" -blob_files [list $tmpfile]
     }