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.16 -r1.17
--- openacs-4/packages/assessment/tcl/as-item-procs.tcl	4 Aug 2006 19:06:03 -0000	1.16
+++ openacs-4/packages/assessment/tcl/as-item-procs.tcl	6 Aug 2006 17:27:45 -0000	1.17
@@ -87,7 +87,8 @@
         set new_item_id [content::revision::new \
 			     -item_id $item_item_id \
 			     -content_type {as_items} \
-			     -title $title \
+			     -title [string range $title 0 999] \
+			     -content $title \
 			     -description $description \
 			     -attributes [list [list subtext $subtext] \
 					      [list field_name $field_name] \
@@ -119,6 +120,7 @@
 			     -content_type {as_items} \
 			     -title $title \
 			     -description $description \
+			     -content $content \
 			     -attributes [list [list subtext $subtext] \
 					      [list field_name $field_name] \
 					      [list field_code $field_code] \
@@ -183,6 +185,7 @@
 			     -item_id $item_item_id \
 			     -content_type {as_items} \
 			     -title $title \
+			     -content $content \
 			     -description $description \
 			     -attributes [list [list subtext $subtext] \
 					      [list field_name $field_name] \