Index: openacs-4/packages/assessment/tcl/as-item-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-procs-oracle.xql,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/assessment/tcl/as-item-procs-oracle.xql	23 May 2006 12:11:47 -0000	1.1.2.3
+++ openacs-4/packages/assessment/tcl/as-item-procs-oracle.xql	23 May 2006 12:39:59 -0000	1.1.2.4
@@ -34,4 +34,15 @@
     </querytext>
   </fullquery>  
   
+  <fullquery name="as::item::new_revision.update_clobs">
+    <querytext>
+      update as_items
+      set feedback_right=empty_clob(),
+      feedback_wrong=empty_clob(),
+	  validate_block=empty_clob()
+      where as_item_id=:new_item_id
+      returning feedback_right, feedback_wrong, validate_block into :1, :2, :3
+    </querytext>
+  </fullquery>  
+  
 </queryset>
Index: openacs-4/packages/assessment/tcl/as-item-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-procs-postgresql.xql,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/assessment/tcl/as-item-procs-postgresql.xql	23 May 2006 12:11:47 -0000	1.1.2.4
+++ openacs-4/packages/assessment/tcl/as-item-procs-postgresql.xql	23 May 2006 12:39:59 -0000	1.1.2.5
@@ -32,4 +32,14 @@
       </querytext>
   </fullquery>  
   
+  <fullquery name="as::item::new_revision.update_clobs">
+    <querytext>
+      update as_items
+      set feedback_right=:feedback_right,
+      feedback_wrong=:feedback_wrong,
+	  validate_block=:validate_block
+      where as_item_id=:new_item_id
+      </querytext>
+  </fullquery>  
+  
 </queryset>
Index: openacs-4/packages/assessment/tcl/as-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-procs.tcl,v
diff -u -r1.14.2.7 -r1.14.2.8
--- openacs-4/packages/assessment/tcl/as-item-procs.tcl	23 May 2006 12:11:47 -0000	1.14.2.7
+++ openacs-4/packages/assessment/tcl/as-item-procs.tcl	23 May 2006 12:39:59 -0000	1.14.2.8
@@ -123,14 +123,12 @@
 					      [list required_p $required_p] \
 					      [list data_type $data_type] \
 					      [list max_time_to_complete $max_time_to_complete] \
-					      [list feedback_right $feedback_right] \
-					      [list feedback_wrong $feedback_wrong] \
-					      [list points $points] \
-					      [list validate_block $validate_block] ] ]
+					      [list points $points] ] ]
 
 	copy_types -as_item_id $as_item_id -new_item_id $new_item_id
 	as::assessment::copy_categories -from_id $as_item_id -to_id $new_item_id
     }
+    db_dml update_clobs "" -clobs [list $feedback_right $feedback_wrong $validate_block]
 
     return $new_item_id
 }