Index: openacs-4/packages/assessment/tcl/as-item-type-sa-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-type-sa-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/assessment/tcl/as-item-type-sa-procs.tcl	25 Dec 2004 13:11:55 -0000	1.9
+++ openacs-4/packages/assessment/tcl/as-item-type-sa-procs.tcl	26 Dec 2004 15:07:44 -0000	1.10
@@ -118,5 +118,5 @@
 
     Process a Response to a Short Answer Type
 } {
-    as::item_data::new -session_id $session_id -subject_id $subject_id -staff_id $staff_id -as_item_id $as_item_id -text_answer $response -points ""
+    as::item_data::new -session_id $session_id -subject_id $subject_id -staff_id $staff_id -as_item_id $as_item_id -text_answer [lindex $response 0] -points ""
 }