Index: openacs-4/packages/assessment/tcl/as-item-type-oq-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-type-oq-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/assessment/tcl/as-item-type-oq-procs.tcl	22 Dec 2004 20:52:17 -0000	1.7
+++ openacs-4/packages/assessment/tcl/as-item-type-oq-procs.tcl	24 Dec 2004 15:32:38 -0000	1.8
@@ -85,7 +85,6 @@
     -type_id:required
     -section_id:required
     -as_item_id:required
-    -default_provided:boolean
     {-default_value ""}
     {-session_id ""}
 } {
@@ -96,7 +95,14 @@
 } {
     db_1row item_type_data {}
 
-    return [list $default_value ""]
+    if {![empty_string_p $default_value]} {
+	array set values $default_value
+	set default $values(clob_answer)
+    } else {
+	set default ""
+    }
+
+    return [list $default ""]
 }
 
 ad_proc -public as::item_type_oq::process {