Index: openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	20 Apr 2004 21:12:37 -0000	1.16
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	17 May 2004 15:14:45 -0000	1.17
@@ -52,6 +52,12 @@
         ad_return -code error "Storage type '$storage_type' is invalid."
     }
 
+    # I set content length to 0 here because otherwise I need to do
+    # db-specific queries for get_revision_info
+    if {[empty_string_p $content_length]} {
+	set content_length 0
+    }
+
     switch $storage_type {
         text {
             set text [db_string write_text_content ""]