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.4 -r1.5
--- openacs-4/packages/survey/www/process-response.tcl	8 Oct 2002 01:04:47 -0000	1.4
+++ openacs-4/packages/survey/www/process-response.tcl	23 Nov 2002 05:18:14 -0000	1.5
@@ -13,6 +13,7 @@
     @author  nstrug@arsdigita.com
     @date    28th September 2000
     @cvs-id $Id$
+
 } {
   survey_id:integer
   section_id:integer
@@ -70,7 +71,7 @@
 		}
 	    }
 	    
-	    if { [exists_and_not_null response_to_question($question_id)] || ($abstract_data_type=="choice" && ![empty_string_p [lindex $response_to_question($question_id) 0]])} {
+	    if { [exists_and_not_null response_to_question($question_id)] } {
 		set response_value [string trim $response_to_question($question_id)]
 	    } elseif {$required_p == "t"} {
 		lappend questions_with_missing_responses $question_text