Index: openacs-4/packages/news/www/admin/revision.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/revision.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/news/www/admin/revision.tcl	20 Apr 2001 20:51:14 -0000	1.1
+++ openacs-4/packages/news/www/admin/revision.tcl	15 Oct 2001 13:41:03 -0000	1.2
@@ -49,9 +49,11 @@
     # workaround to get blobs with >4000 chars into a var, content.blob_to_string fails! 
     # when this'll work, you get publish_body by selecting 'publish_body' directly from above view
     #
-    set publish_body [db_string get_content "select  content
-    from    cr_revisions
-    where   revision_id = :revision_id"]
+    if {![string match [db_type] "postgresql"]} {
+	set publish_body [db_string get_content "select  content
+	from    cr_revisions
+	where   revision_id = :revision_id"]
+    }
     
     # text-only body
     if {[info exists html_p] && ![string equal $html_p "t"]} {