Index: openacs-4/packages/survey/www/admin/question-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/question-add-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/survey/www/admin/question-add-2.tcl	16 Sep 2002 00:00:24 -0000	1.1
+++ openacs-4/packages/survey/www/admin/question-add-2.tcl	25 Sep 2002 00:43:42 -0000	1.2
@@ -34,6 +34,12 @@
 
 set question_id [db_nextval acs_object_id_seq]
 get_survey_info -section_id $section_id
+
+if {![info exists survey_info(survey_id)]} {
+    ad_return_complaint 1 "Requested survey does not exist"
+    ad_script_abort
+}
+
 set survey_id $survey_info(survey_id)
 set type $survey_info(type)