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.3 -r1.3.2.4
--- openacs-4/packages/survey/www/process-response.tcl	10 Dec 2002 00:20:09 -0000	1.3.2.3
+++ openacs-4/packages/survey/www/process-response.tcl	10 Dec 2002 00:55:57 -0000	1.3.2.4
@@ -60,20 +60,20 @@
 	    if { [exists_and_not_null response_to_question($question_id)] } {
 		if {$abstract_data_type != "choice"} {
 		    set response_to_question($question_id) [join $response_to_question($question_id)]
-		}
+		} else {
+		    if { [empty_string_p [lindex $response_to_question($question_id) 0 ] ] } {
+			set response_to_question($question_id) ""
+		    }
+	        }
 	    }
 	    
-	    
 	    if { $abstract_data_type == "date" } {
 		if [catch  { set response_to_question($question_id) [validate_ad_dateentrywidget "" response_to_question.$question_id [ns_getform]]} errmsg] {
 		    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)]