Index: openacs-4/packages/news/www/admin/revision-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/revision-add.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/news/www/admin/revision-add.tcl	20 Apr 2001 20:51:14 -0000	1.1
+++ openacs-4/packages/news/www/admin/revision-add.tcl	15 Oct 2001 13:41:03 -0000	1.2
@@ -60,9 +60,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"]
+}
 
 
 set never_checkbox "<input type=checkbox name=permanent_p value=t"