Index: openacs-4/packages/assessment/tcl/as-assessment-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs-oracle.xql,v
diff -u -r1.8.2.3 -r1.8.2.4
--- openacs-4/packages/assessment/tcl/as-assessment-procs-oracle.xql	17 May 2006 15:53:56 -0000	1.8.2.3
+++ openacs-4/packages/assessment/tcl/as-assessment-procs-oracle.xql	23 May 2006 11:53:43 -0000	1.8.2.4
@@ -89,4 +89,13 @@
     </querytext>
 </fullquery>
   
+<fullquery name="as::assessment::new_revision.update_clobs">
+    <querytext>
+      update as_assessments set
+      instructions=empty_clob(),consent_page=empty_clob()
+      where assessment_id=:new_rev_id
+      returning instructions, consent_page into :1, :2
+    </querytext>
+</fullquery>
+  
 </queryset>
Index: openacs-4/packages/assessment/tcl/as-assessment-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs-postgresql.xql,v
diff -u -r1.8.2.4 -r1.8.2.5
--- openacs-4/packages/assessment/tcl/as-assessment-procs-postgresql.xql	17 May 2006 15:53:56 -0000	1.8.2.4
+++ openacs-4/packages/assessment/tcl/as-assessment-procs-postgresql.xql	23 May 2006 11:53:43 -0000	1.8.2.5
@@ -87,4 +87,12 @@
     </querytext>
 </fullquery>
   
+<fullquery name="as::assessment::new_revision.update_clobs">
+    <querytext>
+      update as_assessments set
+      instructions=:instructions, consent_page=:consent_page
+      where assessment_id=:new_rev_id
+    </querytext>
+</fullquery>
+  
 </queryset>
Index: openacs-4/packages/assessment/tcl/as-assessment-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs.tcl,v
diff -u -r1.26.2.15 -r1.26.2.16
--- openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	17 May 2006 15:53:56 -0000	1.26.2.15
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	23 May 2006 11:53:43 -0000	1.26.2.16
@@ -209,7 +209,6 @@
 			    -title $a(title) \
 			    -description $a(description) \
 			    -attributes [list [list creator_id $a(creator_id)] \
-					     [list instructions $a(instructions)] \
 					     [list run_mode $a(run_mode)] \
 					     [list anonymous_p $a(anonymous_p)] \
 					     [list secure_access_p $a(secure_access_p)] \
@@ -218,7 +217,6 @@
 					     [list random_p $a(random_p)] \
 					     [list entry_page $a(entry_page)] \
 					     [list exit_page $a(exit_page)] \
-					     [list consent_page $a(consent_page)] \
 					     [list return_url $a(return_url)] \
 					     [list start_time $a(start_time)] \
 					     [list end_time $a(end_time)] \
@@ -231,6 +229,10 @@
 					     [list section_navigation $a(section_navigation)]  \
 					     [list type $a(type)]]]
 	
+		set instructions $a(instructions)
+		set consent_page $a(consent_page)
+		db_dml update_clobs {} -clobs [list $a(instructions) $a(consent_page)]
+
 	copy_sections -assessment_id $a(assessment_rev_id) -new_assessment_id $new_rev_id
 	copy_categories -from_id $a(assessment_rev_id) -to_id $new_rev_id
     }