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.12.2.4 -r1.12.2.5
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	19 Apr 2004 00:59:23 -0000	1.12.2.4
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	6 May 2004 21:25:33 -0000	1.12.2.5
@@ -51,8 +51,12 @@
          ![string equal $storage_type "lob"] } {
         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 ""]