Index: openacs-4/packages/evaluation-portlet/www/evaluation-evaluations-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/www/evaluation-evaluations-portlet.tcl,v
diff -u -r1.7 -r1.7.8.1
--- openacs-4/packages/evaluation-portlet/www/evaluation-evaluations-portlet.tcl	8 Aug 2006 21:26:45 -0000	1.7
+++ openacs-4/packages/evaluation-portlet/www/evaluation-evaluations-portlet.tcl	19 Aug 2014 17:30:26 -0000	1.7.8.1
@@ -35,7 +35,7 @@
 db_multirow grades get_grades { *SQL* } {
 }
 
-if { [string eq $one_instance_p 1] && [string eq $admin_p 0] } {
+if { $one_instance_p eq "1" && $admin_p eq "0" } {
     set total_class_grade [lc_numeric [db_string get_total_grade { *SQL* }]]
     set max_possible_grade [lc_numeric [db_string max_possible_grade { *SQL* }]]
 }