Index: openacs-4/packages/survey/www/admin/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/one.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/survey/www/admin/one.tcl	16 Sep 2002 10:28:14 -0000	1.3
+++ openacs-4/packages/survey/www/admin/one.tcl	25 Sep 2002 00:43:42 -0000	1.4
@@ -21,7 +21,10 @@
 
 # Get the survey information.
 get_survey_info -survey_id $survey_id
-
+if {![info exists survey_info(survey_id)]} {
+    ad_return_complaint 1 "Requested survey does not exist"
+    ad_script_abort
+}
 # get users and # who responded etc...
 if {[apm_package_installed_p dotlrn]} {
     set community_id [dotlrn_community::get_community_id_from_url]