Index: openacs-4/packages/survey/www/admin/question-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/question-add-3.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/survey/www/admin/question-add-3.tcl	24 Sep 2002 02:22:25 -0000	1.3
+++ openacs-4/packages/survey/www/admin/question-add-3.tcl	25 Sep 2002 00:43:42 -0000	1.4
@@ -42,6 +42,12 @@
 set user_id [ad_get_user_id]
 ad_require_permission $package_id survey_create_question
 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 exception_count 0
 set exception_text ""