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 -r1.27 -r1.28
--- openacs-4/packages/cms/tcl/form-procs.tcl	17 May 2005 21:25:08 -0000	1.27
+++ openacs-4/packages/cms/tcl/form-procs.tcl	6 Oct 2005 18:26:14 -0000	1.28
@@ -807,7 +807,7 @@
                 }
             }
             
-            if { ! [string equal $value {} ] } {
+            if { ! [string equal $value {} ] && ![expr { [string equal $ancestor "content_revision"] && [string equal $attribute_name "title"] }] } {
                 ns_set put $bind_vars $attribute_name $value
 
                 lappend columns $attribute_name
@@ -832,7 +832,6 @@
     } else { 
         set insert_statement "insert into ${table_name}i ( [join [concat $columns $missing_columns] ", "] )\nselect [join [concat $values $missing_columns] ", "]\nfrom ${table_name}i\nwhere revision_id = content_item.get_latest_revision(:item_id)"
     }
-
     return $insert_statement
 }