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.3.2.2 -r1.3.2.3
--- openacs-4/packages/survey/www/process-response.tcl	5 Dec 2002 00:16:48 -0000	1.3.2.2
+++ openacs-4/packages/survey/www/process-response.tcl	10 Dec 2002 00:20:09 -0000	1.3.2.3
@@ -69,8 +69,13 @@
 		    ad_complain "$errmsg: Please make sure your dates are valid."
 		}
 	    }
+	   
+	    if {$abstract_data_type=="choice" && [empty_string_p [lindex $response_to_question($question_id) 0]]} {
+		set response_to_question($question_id) "" 
+	    }
 	    
 	    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