Index: openacs-4/packages/evaluation/www/admin/groups/group-member-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/groups/group-member-add.tcl,v
diff -u -N -r1.7 -r1.7.8.1
--- openacs-4/packages/evaluation/www/admin/groups/group-member-add.tcl	8 Aug 2006 21:26:42 -0000	1.7
+++ openacs-4/packages/evaluation/www/admin/groups/group-member-add.tcl	19 Aug 2014 07:35:56 -0000	1.7.8.1
@@ -12,7 +12,7 @@
 	{orderby:optional}
 } -validate {
 	target_exists {
-		if { [string eq "select count(group_id) from evaluation_task_groups where task_id = :task_id" 0] } {
+		if { [string equal "select count(group_id) from evaluation_task_groups where task_id = :task_id" 0] } {
 			ad_complain "[_ evaluation.lt_There_are_no_groups_f]"
 		}
 	}
@@ -45,7 +45,7 @@
 
 set orderby [template::list::orderby_clause -orderby -name evaluation_groups]
 
-if { [string equal $orderby ""] } {
+if {$orderby eq ""} {
     set orderby " order by group_name asc"
 }