Index: openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students.tcl	10 Jun 2004 21:08:53 -0000	1.3
+++ openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students.tcl	12 Aug 2004 17:46:42 -0000	1.4
@@ -73,7 +73,7 @@
 				    if { ![string eq $old_grade  [format %.2f [lc_numeric $grades($party_id)]]] } {
 						incr counter
 						if { ![info exists reasons($party_id)] || [empty_string_p $reasons($party_id)] } {
-						    set grade_wo_reason $grades$party_id)
+						    set grade_wo_reason $grades($party_id)
 						    ad_complain "[_ evaluation.lt_You_must_give_an_edit]"
 						}
 						set grades_to_edit($party_id) $grades($party_id)