Index: openacs-4/packages/survey/www/process-response.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/process-response.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/survey/www/process-response.tcl	18 Sep 2002 12:15:21 -0000	1.2
+++ openacs-4/packages/survey/www/process-response.tcl	24 Sep 2002 02:27:39 -0000	1.3
@@ -70,7 +70,7 @@
 		}
 	    }
 	    
-	    if { [exists_and_not_null response_to_question($question_id)] } {
+	    if { [exists_and_not_null response_to_question($question_id)] || ($abstract_data_type=="choice" && ![empty_string_p [lindex $response_to_question($question_id) 0]])} {
 		set response_value [string trim $response_to_question($question_id)]
 	    } elseif {$required_p == "t"} {
 		lappend questions_with_missing_responses $question_text