Index: openacs-4/contrib/packages/survey/tcl/survey-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/tcl/Attic/survey-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/contrib/packages/survey/tcl/survey-procs.tcl	31 Jan 2005 19:24:13 -0000	1.6
+++ openacs-4/contrib/packages/survey/tcl/survey-procs.tcl	18 Mar 2005 02:28:02 -0000	1.7
@@ -469,14 +469,24 @@
 	    append return_string "[survey_decode_boolean_answer -response $boolean_answer -question_id $question_id]"
 	    
 	}
-	
+
+	# SB: again, we need to extract the text separately for checkbox_text, radio_text and select_text widgets
+	switch -- $presentation_type {
+	    "checkbox_text" -
+	    "radio_text" -
+	    "select_text" {
+		append return_string " [survey::form::get_response_text -response_id $response_id -question_id $question_id \
+					  -abstract_data_type $abstract_data_type]"
+	    }
+	}
+
 	if $html_p {
 	    append return_string "</blockquote>
 	    <P>"
 	} else {
 	    append return_string "\n\n"
 	}
-	
+
 	set question_id_previous $question_id 
     }