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.5 -r1.14.2.6
--- openacs-4/packages/assessment/tcl/as-item-procs.tcl	2 May 2006 13:13:48 -0000	1.14.2.5
+++ openacs-4/packages/assessment/tcl/as-item-procs.tcl	18 May 2006 11:35:19 -0000	1.14.2.6
@@ -53,12 +53,10 @@
 					     [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] ] ]
     }
-
+    db_dml update_clobs "" -clobs [list $feedback_right $feedback_wrong]
     return $as_item_id
 }
 
@@ -96,14 +94,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] ] ]
 
 	copy_types -as_item_id $as_item_id -new_item_id $new_item_id
     }
-
+    db_dml update_clobs "" -clobs [list $feedback_right $feedback_wrong]
     return $new_item_id
 }