Index: openacs-4/packages/evaluation/www/admin/groups/group-remove-member.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/groups/group-remove-member.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/evaluation/www/admin/groups/group-remove-member.tcl	8 Aug 2006 21:26:42 -0000	1.6
+++ openacs-4/packages/evaluation/www/admin/groups/group-remove-member.tcl	27 Oct 2014 16:41:27 -0000	1.7
@@ -7,14 +7,14 @@
 	@creation-date Mar 2004
 	@cvs-id $Id$
 } {
-	rel_id:integer,notnull
-	task_id:integer,notnull
-	evaluation_group_id:integer,notnull
+	rel_id:naturalnum,notnull
+	task_id:naturalnum,notnull
+	evaluation_group_id:naturalnum,notnull
 }
 
 db_exec_plsql delete_relationship { *SQL* }		
 
-if { [string eq [db_string get_members { *SQL* }] 0] } {
+if {[db_string get_members { *SQL* }] eq "0"} {
     db_exec_plsql delete_group { *SQL* }
     ad_returnredirect "one-task?[export_vars -url { task_id }]"
 }