Index: openacs-4/packages/evaluation/www/evaluation-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/evaluation-view.tcl,v
diff -u -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/evaluation/www/evaluation-view.tcl	31 May 2005 23:13:10 -0000	1.4.2.1
+++ openacs-4/packages/evaluation/www/evaluation-view.tcl	4 Oct 2005 17:54:36 -0000	1.4.2.2
@@ -15,7 +15,10 @@
 set context [list $page_title]
 set user_id [ad_conn user_id]
 
-db_1row get_evaluation_info { *SQL* }
+if { ![db_0or1row get_evaluation_info { *SQL* }] } {
+	ad_return_complaint 1 "Evaluation does not exist"
+	return
+}
 
 ad_form -name evaluation -has_submit 1 -has_edit 1 -mode display -form {